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705 GENERALIZED SORTING PROGRAM 

Sort 51 

This is a general sorting routine to sort unblocked records. The records 
may be of variable length (maximum of 2494 characters), but they cannot 
include any group mark or record mark characters. The program per- 
forms a two-way merge operation and produces a sorted file of unblocked 
records as the final output. The program uses a control card to specify 
the following four variables which define a given sort problem: 

1. Number of control fields making up the control word. 

2. Length of the control word. 

3. Position and length of each control field. 

4. The sequence of the control fields making up the control word. 

The control word must not exceed 100 characters or five control fields placed 
anywhere and in any order in the record. A deck of 151 program cards to 
run this program on the 705 can be ordered from Stationery Stores, Endicott, 
Form No. 32-6835 

There are four phases to the program. All four are stored in memory at the 
same time. 

1. Assignment Routine 

2. Phase I - 1st Pass 

3. Phase II - 2nd and Subsequent 

Passes 

4. Phase III - Last Pass 

ASSIGNMENT ROUTINE 

This section is located in position 00244 through position 03034 and accom- 
plishes the following details: 

1. Checks the control card to insure the following: 

A. There is a control card. 

B. There has not been a card reader error- 

C. The sum of the individual control field lengths equals the 
total control word length. 

D. The control fields do not overlap or extend beyond the begin- 
ning of the record. 



2. Sets up the first pass to pick the control fields out of the rec- 
ords, stores them at the beginning of the records in their 
proper sequence, and transfers the information displaced by 
them to the original control field locations. 

3. Sets up the final pass to restore the records to their original 
form. 

4. Interrogates the alteration switches and changes the program 
accordingly. 

5. Provides a listing similar to MEPR 51 of the instructions in 
the sort program after they have been set up by the assign- 
ment section if alteration switch 0916 is off. 

6. A manual transfer to 02999 prepares a listing of the assign- 
ment program in the event something goes wrong. 

7. Sets up housekeeping for the first pass. 
PHASE I 

During Phase I the master file is read in, rearranged, and written out on the 
two output tapes in sequence of at least two records. 

PHASE II 

In Phase II the file is passed through the 705 in successive runs, each run merg- 
ing two tapes onto two tapes. Successively, larger sequences are produced. 
For each pass the number of sequences on the output tapes is not more than 
half the number on the input tapes (rounded to the higher integer). "When the 
number of sequences produced is not more than two, the program goes into 
Phase III. 

PHASE III 

During Phase III a final pass merges the file into one sequence. The records 
are rearranged into their original form and the sorted file is written out on 
tape. A check for correct sequence is made and an optional check for equal 
control fields is made. 

Description of Control Card 

Columns 1-4 Not used by General Sort 51 

Columns 5-8 Total control field length (L14-L2 4- L3 -4- 

L4-+-L5). This must be less than or 

equal to 100 characters. 



Columns 9-15 
Columns 16-18 
Columns 19-22 

Columns 23-25 
Columns 26-29 

Columns 30-32 
Columns 33-36 

Columns 37-39 
Columns 40-43 

Columns 44-46 
Columns 47-50 

Columns 51 -80 



Not used by General Sort 51 

Length of major control field- -LI 

Units position of major control field within the individual 

record 

Length of intermediate control field- -L2 
Units position of intermediate control field within the in- 
dividual record 

Length of minor control field- -L3 
Units position of minor control field within the individual 

record 

Length of fourth order control field- -L4 
Units position of fourth order control field within the in- 
dividual record 

Length of fifth order control field- -L5 

Units position of fifth order control field within the indi- 
vidual record 
Title or description of master file 



NOTE: Any of the columns 2 3-50 which are not used must be left blank. 

OPERATION 

1. Prepare control card as described above. 

2. Place control card at the end of the program deck immediately 
following the transfer control card (zeros in column 14 and 15). 
Placing three blank cards following the control card will make 
it unnecessary to press the start button on the card reader to 
load the last three program cards. 

3. Set the tape units and alteration switches 0911, 0912, and 0913 
according to the following table. If nine or ten tapes are used, 
the program will save the input tapes for each pass until the 
output tapes from that pass have been read successfully. This 
permits the operator to return to the beginning of a previous 
pass if an unreadable record is encountered. 



Tape Units Tapes Used Master 

Available File 

A 3 Even. 0200-0204 0200 

2 Odd 

B 2 Even 0200-0203 0200 

3 Odd 0205 



Checkpoint 0911 0912 0913 



0204 



0205 



On 



Off 



Off Off 



On Off 



Tape Units Tapes Used Master Checkpoint 0911 
Available File 



0912 0913 



C 3 Even 0200-0205 0204 

3 Odd 



0205 



On 



On Off 



D 5 Even 0200-0204 0200 

4 Odd 0206-0209 



0204 



On 



Off On 



4 Even 

5 Odd 



0200-0203 
0205-0209 



0200 



0205 



Off 



On 



On 



5 Even 
5 Odd 



0200-0209 



0204 



0205 



On 



On 



On 



If the master file is on 0200, the program will halt at the conclusion of 
the first pass to allow the master file to be replaced by an erasable tape 
for sorting. In this case, and if 9 tapes are being used for the sort (D 
and E above), tape 0200 will not be addressed again until pass No. 4. 
The operator, therefore, may elect to continue the sorting while 0200 is 
being changed unless, of course, the file is too short to allow this. 

If the master file is on 0204, the program will not halt but will continue 
on to the next pass. 
Alteration Switches 



0911, 0912, and 0913 
0914 ON 



0915 



0916 



OFF 



ON 



OFF 



ON 



OFF 



Set as required for tape combination. 

A printer, 0400, is available for printing out 

records that cannot be read correctly and for 

printing out records with identical control 

fields in the last pass (checking of the latter 

condition is controlled by 0915 below). 

A printer is not available for these purposes. 

Messages will be typed giving the control 

fields of such records. 

In the last pass records with identical control 

fields will be identified (printing or typing is 

controlled by 0914 above). 

No check for identical control fields will be 

made. 

No print out of the sorting program will be 

given. 

A print out of the sorting program will be 

given. 



Memory Positions Required 
Entire Memory 



Check Switches 



0900 - Automatic 



Check Switches (continued) 

0901 - Automatic 

0902 - Program 

0903 - Program 

0904 - Program 

0905 - Program 

Units Required 

Card Reader 0100 

Tapes as indicated above 

Printer, 717 with carriage control at program 

(Printer optional) 

Loading Instructions 



Clear Memory 
2 - 00100 
Y - 00000 
START 



Select Card Reader 
Read into 00000 



Program Stops 

0001 

0002 
0003 

0004 
0005 



0006 



0007 
0008 

0009 



0010 

0011 
0012 



Repeated write error on first checkpoint. . reload and re- 
start. 

Error in loading program—reload. 
No control card- -put one in card reader and press start 

key. 

Control card read error — replace it and press start key. 
Control card punching error- -sum of control field lengths 
is not equal to total length, or total control length is greater 
than 100, or there are more than five control fields --put 
in correct card and press start key. 

Control card error — the fields overlap or run over the be- 
ginning of the record—rewind checkpoint tape, read into 
00000, put corrected card into card reader and transfer to 
00244. 

Repeated tape write errors— press start key. 
Remove master file on 0200, replace with erasable tape, 
and press start key. 

Master file has no records (wrong master file reel) — replace 
reel on master file tape unit by correct master file reel and 
press start key. 

Master file has one record (wrong master file reel) — replace 
reel on master file tape unit by correct master file reel and 
press start key. 
Output tape too short— replace with a longer one and press 

start key. 

Master file is already in sequence— press start key if pass 

for duplicate checking is desired. 



Program Stops (continued) 

0013 Middle pass hash total or record count unequal—press 
start key to restart pass--if error recurs, and nine or 
ten tapes are being used, transfer to 04219 to restart 
previous pass; otherwise, restart sort. 

0014 Checkpoint unreadable --change tape and reload program. 

0015 Records out of sequence in last pass- -press start key. 

0016 Last pass hash total or record count error--see stop 
0013 

0017 Repeated checkpoint write error—press start key. 
9999 FINAL STOP 

REMARKS 

Checking 

1. Read-Write (0902) Errors 

There is only one read error procedure and one write error pro- 
cedure for the entire program. This is accomplished because all 
records are read into one section and all records are written from 
another section. In the event of an unreadable record, the action 
is determined by the number of tapes being used. If less than 9 are 
being used, the record will be dumped on the printer, or the con- 
trol typed on the typewriter and the program will continue. If 9 
or 10 tapes are in use, the program will restart at the beginning 
of the previous pass, except when the unreadable record is on the 
master file. In this case, the record will be dumped. 

2. Immediately after a RWW operation 0901, 0904, and 0905 are 
checked. If a signal is received, a restart procedure is executed. 
During the restart procedure the checkpoint is read and both ac- 
cumulator and ASU's are cleared and reset. The pass is started 
over. 

3. Overflow check — this determines if an output tape gets to a reflec- 
tive spot before the input tapes get to EOF. The procedure is to 
have the 705 stop to give the operator a chance to put a larger 
erasable tape on the unit indicated by the message. 

4. On the final pass a sequence check is made. If a low record is 
found, a restart is made. 

5. Sort 51 provides two different hash total checks. Between the first 
and last pass a check of the total of the numerical parts of char- 
acters 2 through 10 of the original format of the records is made. 
This check is bypassed if any records had to be dropped because 



of unreadability. Between every pair of consecutive passes 
a similar check is made of the rearranged record format, 
except when a record has been dropped in the second of the 
pair. Between each pass, regardless of record dropping, 
a record count check is made. A failure of one of these 
checks will result in a restart of the pass in which the error 
is discovered. 

Checkpoint 

Sort 51 takes a checkpoint immediately following the reading of the control 
card. It also takes a checkpoint at the beginning of every subsequent pass. 
The program is designed to return automatically to the previous checkpoint 
if it discovers the 901, the 904, or the 905 indicator on. 

Certain special situations may occur which should be resolved as follows: 

1. If the machine stops on an 0900 or 0901 check, or gets in a 
loop, the operator should stop the machine, reset, and trans- 
fer manually to 06919. 

2. Should this fail, manually backspace the checkpoint tape, 
read into 00000, and transfer to 07054. 

3. The checkpoint tape may be unreadable. If so, backspace 
it twice, read into 00000, and transfer to 07054. 

4. If even this procedure fails the only course is to restart. 
Proceed as follows: 

Rewind the checkpoint tape. 
Read into 00000. 
Mount a new checkpoint tape. 
Remount the master (if necessary). 
Transfer to 07054. 

Sorting More Than One File 

After Sort 51 is loaded, it is not necessary to reload it in order to sort an- 
other file. The faster procedure is to place the new master file on the 
correct tape unit, replace the sorted tape with another tape, and read the 
first record on the checkpoint tape into 00000. If the new file requires the 
same control card, transfer to 07054; if the new file requires a different 
control card, place it in the card reader and transfer to 00244. 



SORTING LOGIC 
PHASE I 



Sort 51 uses four areas in memory for holding records: A, B, C, and D, 
All reading is done into area B and all writing from area C. At the 
beginning of the first pass, the first record from the master file is read 
into area B, rearranged, and sent to area A. The second record is read 
into B, rearranged, and its control field is compared to that in area A. 
The lower record is, sent to the output area C, and the higher, if it is B, 
is sent to the comparison area A. The program then enters its major 
cycle on a simultaneous read/write sequence, with the record in C going 
to the output tape, and the next record on the master coming into B. The 
B record is now rearranged and its control word is compared to the one 
in the output area C, A low comparison indicates a step-down. If there 
is no step-down, the B field is compared to the A field, the lower record 
being sent to the output area and the higher to A. The program now returns 
to the read/write sequence and continues. When a step-down record is 
read, it is sent to area D, the program reads the next record into B, and 
continues until a second step-down is met. At this point, the record in A 
which belongs to the current sequence is written out, and the output tape 
address is changed. The lower of B and D is then sent to area C, the 
higher to A, and the program returns to the read/write sequence. When 
end of file is signaled, the program writes the A record on the current 
output tape. If a D record is present it is written on the alternate tape. 

PHASE II 

The logic of the middle passes is very similar to that of the first pass. At 
the beginning of the pass, the input and output tapes are alternated. The 
first record from input tape one is read into area A, and the first from tape 
two is read into B. The control fields at A and B are compared. If B is low- 
er, it is sent to C; if A is lower, it is sent to C, and B is sent to A, and the 
input tape address is alternated. The tape which had the record with the low- 
er control field then continues as input tape until a record read from it has a 
higher control field than the record in area A (which had been read from other 
input tape). Next the program goes through a read/write sequence. The newly 
read record is now checked for step-down; if no step-down is encountered, the 
program returns to the point where A and B are compared. When a step-down 
is encountered, the new record is sent to D. A switch is set which prevents 
the reading of the step-down tape until the second step-down occurs on the other 
input tape. The next record from the alternate tape is read into B. The pro- 
gram now returns to the step-down test comparison. At the second step-down, 
the record in A is written, the output tape address is changed, and the records 
in B and D are compared. If B is low it is sent to C, and D is sent to A. If 
D is low it is sent to C, B is sent to A, and the input address tape is changed. 

When the first end of file is reached, a new record from the alternate tape is 
read into B, and a switch is set which prevents the further reading of the end 
of file tape. Sorting then is continued using only one input tape. When the 



second end of file is reached, the record in A is written out, and the record in 
D, if any, is written on the alternate output tape. At this point (the end of the 
pass) a counter is tested to see if the output has been written in more than two 
sequences. If so, the program proceeds to the next pass of Phase II. If not, 
the program enters Phase III. 

PHASE III 

Phase III is identical to Phase II except that after a record is sent to C it is 
returned to its original arrangement before being written out. The test for 
step-down is replaced by a sequence check made before the record is re- 
arranged. If a record is discovered out of sequence, a restart is made with 
the program in Phase II. 

NOTE: A step -down may be defined as a break in sequence on either one of 
the input tapes. 



DETAILED PROGRAM LISTING 



C LNG 


SYMBOLIC 


INCR 






AC 


TUAL 




L 


-0C 


OP 


ADDR 




ASU 


LOC 


OP 


ADDR 


ADDR 


7 


.00.0 


















7 


.01. C 


















7 


.02.0 


















6 


.02.5 




00240 














1 


• 03.0 


SEL 


0902 




00 


00244 


2 


0902 


0902 




.04.0 


TRS 


1.04.0 




00 


00249 





0789 


0789 


1 


.04.1 


SET 


0001 




00 


00254 


B 


0001 


0001 




.04.2 


LOD 


71.02.0 




00 


00259 


8 


8973 


8973 




.04.3 


UNL 


75.09.0 




00 


00264 


7 


12499 


S499 




■ 04.4 


UNL 


75.16.0 




00 


00269 


7 


14999 


U999 




• 04.5 


UNL 


75.26.0 




00 


00274 


7 


17499 


X499 


1 


.05.0 


SEL 


0100 




00 


00279 


2 


0100 


0100 




.06.0 


RD 


73.06.0 


6001 


00 


00284 


Y 


9412 


9412 




.06.5 


TRS 


1.09.0 




00 


00289 





0819 


0819 


1 


.07.0 


SEL 


0902 




00 


00294 


2 


0902 


0902 




■ 08.0 


TRS 


1.14.0 




oo 


00299 





0839 


0339 




.08.5 


TR 


.51.0 




00 


00304 


1 


0484 


0484 




• 09.0 


RAD 


71.06.0 




00 


00309 


H 


8979 


8979 


1 


• 09.1 


SET 


OOOO 




12 


00314 


B 


0000 


0600 


1 


• 09.2 


SET 


0032 




12 


00319 


B 


0032 


0632 


1 


• 10. 


SET 


0004 




04 


00324 


B 


0004 


04 




.10.5 


LOD 


73.06.0 


6004 


04 


00329 


8 


9415 


9U15 




• 11.0 


UNL 


73.06.0 


6003 


00 


00334 


7 


9414 


9414 




• 12.0 


LOD 


73.06.0 


6018 


00 


00339 


8 


9429 


9429 




.13.0 


CMP 


71.02.0 




00 


00 344 


4 


8973 


8973 




• 14.0 


TRE 


1.19.0 




00 


00349 


L 


0859 


0859 




.15.0 


CMP 


73.06.0 


6008 


00 


00354 


4 


9419 


9419 




• 16.0 


TRE 


4.02.0 




00 


00359 


L 


1984 


1984 




.17.0 


TRH 


1.19.0 




00 


00364 


K 


0859 


0859 




.19.0 


ADM 


73.06.0 


6003 


00 


00369 


6 


9414 


9414 




.20,0 


LOD 


73.06.0 


6025 


00 


00374 


8 


9436 


9436 




• 21.0 


CMP 


71.02,0 




00 


00379 


4 


8973 


8973 




• 22.0 


TRE 


1.19.0 




00 


00384 


L 


0859 


0859 




• 24.0 


ADM 


73.06.0 


6003 


00 


00389 


6 


9414 


9414 




.25.0 


LOD 


73.06.0 


6032 


oo 


00394 


8 


9443 


9443 




• 26.0 


CMP 


71.02.0 




00 


00399 


4 


8973 


8973 




.27.0 


TRE 


.40.0 




00 


00404 


L 


0454 


0454 




.29.0 


ADM 


73.06.0 


6003 


00 


00409 


6 


9414 


9414 




• 30.0 


LOD 


73.06.0 


6039 


00 


00414 


8 


9450 


9450 




• 31.0 


CMP 


71.02.0 




00 


00419 


4 


8973 


8973 




■ 32.0 


TRE 


• 40.0 




00 


00424 


L 


0454 


0454 




• 34.0 


ADM 


73.06,0 


6003 


00 


00429 


6 


9414 


9414 




• 35.0 


LOD 


73.06.0 


6046 


00 


00434 


8 


9457 


9457 




.36.0 


CMP 


71.02.0 




00 


00439 


4 


8973 


8973 




.37.0 


TRE 


• 40.0 




00 


00444 


L 


0454 


0454 




• 39.0 


ADM 


73.06.0 


6003 


00 


00449 


6 


9414 


9414 




• 40.0 


LOD 


73.06.0 


6008 


00 


00454 


8 


9419 


9419 




• 40.5 


CMP 


72.12.0 




00 


00459 


4 


9089 


9089 




.40.7 


TRH 


1.19.0 




00 


00464 


K 


0859 


0859 




• 41.0 


CMP 


73.06.0 


6003 


00 


00469 


4 


9414 


9414 




■ 42.0 


TRE 


3.02.0 




00 


00474 


L 


1679 


1679 




.44.0 


TR 


1.19.0 




00 


00479 


1 


0859 


0859 


7 


.50.0 


















1 


.51.0 


SEL 


0911 




00 


00484 


2 


0911 


0911 




■ 52.0 


TRS 


• 56.0 




oo 


00489 





0509 


0509 


1 


.53.0 


SEL 


0912 




00 


00494 


2 


0912 


0912 




• 54.0 


TRS 


.63.0 




oo 


00499 





0549 


0549 




.55.0 


TR 


.59.0 




00 


00504 


1 


0524 


0524 


1 


.56.0 


SEL 


0912 




00 


00509 


2 


0912 


0912 




.57.0 


TRS 


.65.0 




00 


00514 





0559 


0559 




• 58.0 


TR 


.70.5 




00 


00519 


1 


0589 


0589 




.59.0 


SGN 


19.01,5 


-004 


01 


00524 


T 


5315 


53/5 



DATA OR DESCRIPTION S0RT51 



SORT 51 TITLE CARD 
ASSIGNMENT SECTION 
CHECKING CONTROL CARD 

TEST IF PROGRAM LOADED PROPERLY 



A BLANK 

INTO POSITION BEFORE B AREA 
INTO POSITION BEFORE C AREA 
INTO POSITION BEFORE D AREA 
GET CONTROL CARD 

NO CONTROL CARD 

TO RELOAD CONTROL CARD 

TO ALT SW INTEROGATION 

GET 3 ZEROS 

SET ASU 12 AND ASU 13 TO ZEROS 

TO SAVE FIRST FOUR CHARACTERS OF CONTROL CARD 
X 

GET LENGTH OF MAJOR CONTROL WORD 
CHECK IF BLANK 
CONTROL CARD ERROR 

TO SINGLE CONTROL FIELD ROUTINE 
CONTROL CARD ERROR 

2ND CONTROL LENGTH 

CONTROL CARD ERROR 

3RD CONTROL LENGTH 



4TH CONTROL LENGTH 



5TH CONTROL LENGTH 



GET TOTAL LENGTH FROM CARD 



CHECK IF EQUAL TO CALCULATED LENGTH 

YES 

CONTROL CARD ERROR 

ALTERATION SW INTERROGATION AND FIRST CHECK POINT 



FOR TAPE COMBINATION 3 
FOR TAPE COMBINATION 1 



FOR COMBINATION 4 
FOR COMBINATION 2 



C LNG 


SYMBOLIC 


I NCR 




ACTUAL S 


L 


LOC OP 


ADDR 




ASU 


LOC OP 


ADDR ADDR N 




,60.0 SGN 


25.11.0 


-004 


01 


00529 T 


7015 70/5 




.61*0 SGN 


5.20.0 


-004 


01 


00534 T 


2180 21Y0 




.61.5 SGN 


36.24.1 


-004 


01 


00539 T 


8065 80W5 




.62.0 TR 


.09.0 




00 


00544 1 


0309 0309 




.63.0 SGN 


5.20,0 


-004 


01 


00549 T 


2180 21Y0 




.64.0 TR 


• 68,0 




00 


00554 1 


0574 0574 




.65.0 SGN 


5.05.0 


-004 


01 


00559 T 


2130 21T0 




.66.0 SGN 


13.31.0 


-004 


01 


00564 T 


4545 45U5 




.67.0 TR 


.63.0 




oo 


00569 1 


0549 0549 




■6B.0 LOD 


• 86.0 


-002 


01 


00574 8 


0677 06X7 




,69.0 UNL 


.71.0 




01 


00579 7 


0599 05Z9 




•69.5 UNL 


.95.0 




01 


00584 7 


0729 07S9 




.70,5 RAO 


71.08.0 




02 


00589 H 


8983 89Q3 




.70.6 TRA 


.71.0 




00 


00594 I 


0599 0599 


1 


,71.0 SEL 


0204 




00 


00599 2 


0204 0204 


1 


.72.0 IOF 


0000 




00 


00604 3 


0000 0000 


1 


,73.0 RWD 


0002 




00 


00609 3 


0002 0002 


1 


.74.0 WR 


0000 




01 


00614 R 


0000 00 




.74.5 TRA 


• 94.0 




00 


00619 1 


0719 0719 




.74.6 RAD 


71.08.0* 




02 


00624 H 


8983 8903 


1 


.75.0 BSP 


0004 




oo 


00629 3 


0004 0004 


1 


.76.0 RO 


oooo 




00 


00634 Y 


0000 0000 


1 


,77.0 SEL 


0901 




00 


00639 2 


0901 0901 




,78.0 TRS 


1.04.0 




00 


00644 


0789 0789 


1 


,79.0 SEL 


902 




00 


00649 2 


0902 0902 




,80.0 TRS 


.95.6 




00 


00654 


0739 0739 




.81.0 TR 


.09,0 




00 


00659 1 


0309 0309 




,82.0 SUB 


71.04.0 




02 


00664 P 


8975 89P5 




,83.0 TRZ 


• 36.0 




02 


00669 N 


0679 06P9 




.84.0 TR 


.70,6 




00 


00674 1 


0594 0594 




.86.0 SEL 


0500 




00 


00679 2 


0500 0500 




.87.0 WR 


70.77.0 


&001 


00 


00684 R 


8773 8773 




,88.0 HLT 


0001 




00 


00689 J 


0001 0001 




.89.0 RAD 


71.08.0 




02 


00694 H 


8983 89Q3 




.90.0 TR 


.84.0 




00 


00699 1 


0674 0674 




.91.0 SET 


0001 




03 


00704 B 


0001 OO&l 




.92.0 LOD 


.71.0 




03 


00709 8 


0599 0519 




.93.0 TR 


14.14.0 




00 


00714 1 


4684 4684 




.94.0 SEL 


0902 




00 


00719 2 


0902 0902 




.94.5 TRS 


• 32.0 




00 


00724 


0664 0664 




,95.0 SEL 


204 




00 


00729 2 


02 04 0204 




.95.5 TR 


.75.0 




00 


00734 1 


0629 0629 




.95.6 SEL 


0500 




00 


00739 2 


0500 0500 




.95.7 WR 


70.87.0 


&001 


00 


00 744 R 


8855 8855 




.95.8 SEL 


0902 




00 


00749 2 


0902 0902 




.95.9 TRS 


• 96.0 




00 


00754 


0759 0759 




.96.0 SUB 


71.04.0 




02 


00759 P 


8975 89P5 




.96.1 TRZ 


.96.3 




02 


00764 N 


0774 07P4 




.96.2 TR 


.95.0 




00 


00769 1 


0729 0729 


1 


.96.3 HLT 


0014 




00 


00774 J 


0014 0014 




,96.4 ADD 


71.04.0 




02 


00779 G 


8975 89P5 




.96.5 TR 


.95.0 




00 


00 784 1 


0729 0729 


7 


1.00.0 












7 


1.01.0 












7 


1.02.0 












7 


1.03.0 












1 


1.04.0 SEL 


0500 




00 


00789 2 


0500 0500 




1.05.0 WR 


70.39.0 


&001 


00 


00794 R 


8493 8493 


1 


1.06.0 HLT 


0002 




00 


00799 J 


0002 0002 


1 


1.06.5 SEL 


0100 




00 


00804 2 


0100 0100 


1 


1.07.0 RD 


0000 




00 


00809 Y 


0000 0000 


1 


1.07.5 TR 


004 




oo 


00814 1 


0004 0004 



DATA OR DESCRIPTION 

CHECK PT REWIND SW TO TR 

SET END OF FIRST PASS SW TO TR 
A 5 



RESET ERROR COUNTER 
TURN OFF ANY INDICATOR 



WRITE CHECK POINT 
RESET ERROR COUNTER 



SORT51 



DECREASE ERROR CTR 



REPEATED WRITE ERROR FIRST CHECK POINT 
RESET ERROR COUNTER 



ADDRESS CHECK PT TAPE 



CHECK POINT TAPE READ ERROR MESSAGE 
TURN OFF 0902 IND 

DECREASE ERROR CTR 

REPEATED CHECK POINT READ ERRORS 

ERROR ROUTINES FOR ASSIGNMENT 

PROGRAM NOT LOADED CORRECTLY 

MESSAGE #9 

ERROR IN LOADING PROGRAM 

TO RELOAD ENTIRE PROGRAM 

X 

X 



LNG 



SYMBOLIC 
LOC OP ADDR 



INCR 



ASU 



1.08.0 

1.09.0 

1.10.0 

1.11.0 

1.12.0 

1.13.0 

1.14.0 

1.15.0 

1.16.0 

1.17.0 

1.18.0 

1.19.0 

1.20.0 

1.20.5 

1.21.0 

1.22.0 

1.23.0 

2.00.0 

2.01.0 

2.02.0 

2.03.0 

2 . 04 . 

2.04.5 

2.04.6 

2.04.7 

2.04.8 

2.04.9 

2.05.0 

2.05.1 

2.05.2 

2.05.3 

2.05.4 

2.05.8 

2.06.0 

2.06.2 

2.06.4 

2.06.6 

2.06.3 

2.07.0 

2.07.2 

2.07.4 

2.07.6 

2.07.8 

2.08.0 

2.08.2 

2.08.4 

2.08.6 

2.09.0 

2.10.0 

2.11.0 

2.12.0 

2.13.0 

2.14.0 

2.15.0 

2.16.0 

2.17.0 

2.18.0 

2.18.1 

2.18.2 

2.19.0 

2.20.0 

2.21.0 



SEL 
WR 
HIT 
TR 

SEL 
WR 
HLT 
TR 

SEL 

WR 

UNL 

WR 

HLT 

TR 



SET 

LOD 

UNL 

SET 

SET 

UNL 

SET 

SET 

LOD 

LOD 

SUB 

UNL 

TRZ 

LOD 

RCV 

TMT 

ADM 

CMP 

TRH 

SUB 

TRZ 

TR 

LOD 

ADM 

TR 

RCV 

TMT 

RCV 

TMT 

ADM 

ADM 

RCV 

TMT 

RCV 

TMT 

ADM 

ADM 

LOD 

LOD 

UNL 



0500 00 

70.43.0 6001 00 

0003 00 
.05.0 00 

0500 00 

70.51.0 6001 00 

0004 00 
.05.0 00 

0500 00 

70.55.0 6001 00 

73.06.0 6004 04 

73.06.0 6001 00 

0005 00 
.05.0 00 



0035 

73.06.0 

73.09.0 

0007 

0007 

73.57.0 

0004 

0004 

72.14.0 

72.13.0 

71.58.0 

73.53.0 

2.30.0 

73.08.0 

2.07.2 

2.06.4 

2.07.2 

2.09.0 
71.58.0 
2.08.2 
2.07.0 
73.53.0 
2.06.4 
2.05.8 
2.19.0 
2.06.4 
2.20.0 
2.07.2 
2.19.0 
2.20.0 
2.21.0 
2.07.2 
2.22.0 
2.06.4 
2.21.0 
2.22.0 



00 

6050 00 

00 

07 

11 

02 

03 

15 

03 

15 

02 

02 

02 

&007 04 

-003 00 

-003 04 

06 

00 

00 

02 

02 

00 

02 

06 

00 

-003 00 

-003 04 

-003 00 

-003 04 

03 

15 

-003 00 

-003 04 

-003 00 

-003 04 

03 

15 

00 

00 

00 





ACTUAL 


S 


LOC 


OP 


ADDR 


ADDR N 


00819 


2 


0500 


0500 


00824 


R 


8520 


8520 


00829 


J 


0003 


0003 


00834 


1 


0279 


0279 


00839 


2 


0500 


0500 


00844 


R 


8537 


8537 


00849 


J 


0004 


0004 


00854 


1 


0279 


0279 


00859 


2 


0500 


0500 


00864 


R 


8569 


8569 


00869 


7 


9415 


9U15 


00874 


R 


9412 


9412 


00379 


J 


0005 


0005 


00884 


1 


0279 


0279 



00889 B 
00894 8 
00899 7 
00904 B 
00909 B 
00914 7 
00919 B 
00924 B 
00929 8 
00934 8 
00939 P 
00944 7 
00949 N 
00954 8 
00959 U 
00 964 9 
00969 6 
00974 4 
00979 K 
00984 P 
00989 N 
00994 1 
00999 8 
01004 6 
01009 1 
01014 U 
01019 9 
01024 U 
01029 9 
01034 6 
01039 6 
01044 U 
01049 9 
01054 U 
01059 9 
01064 6 
01069 6 
01074 8 
01079 8 
01084 7 



0035 
9461 
9527 
0007 
0007 
9751 
0004 
0004 
9097 
9093 
9019 
9720 
1114 
9499 
0971 
0951 
0974 

1014 
9019 
0999 
0969 
9720 
0954 
0939 
1071 
0951 
1076 
0971 
1074 
1079 
1081 
0971 
1086 
0951 
1084 
1089 



0035 
9461 
9527 
67 
0-67 
97N1 
0064 
0664 
9017 
9513 
90J9 
97K0 
11J4 
9U99 
0971 
0Z51 
0ZP4 

1014 
90J9 
09R9 
0969 
97K0 
0ZN4 
0939 
1071 
0Z51 
1076 
0Z71 
10G4 
1&G9 
10S1 
0Z71 
1086 
0Z51 
10H4 
16H9 



DATA OR DESCRIPTION S0RT51 



NO CONTROL CARD 

MESSAGE #10 

NO CTRL CARD — LOAD ONE AND RESTART 

902 CHECK FOR CONTROL CARD 

MESSAGE #11 

ERROR IN READING CTRL CARD — RELOAD IT AND RESTART 

CONTROL CARD IN ERROR 

MESSAGE #12 
REPLACE 
CONTROL CARD 

CTRL CARD ERROR — SUM RULE OR MORE THAN 5 FIELDS 



SAVING BEGINNING OF RECORD 



BUILDING UP TABLES 
HOUSEKEEPING 



LOAD CTRL FIELD INFORMATION 



FIELD COUNT 



ZONE INCREMENT 4 TO 7 
ZONE INCREMENT 4 TO 11 
SUB 1 FROM FIELD COUNT 

LAST CTRL FIRELO 

LOAD ITH CTRL FIELD POSITION 

TO CMP INSTR 

TMT ADDR OF ITH CTRL FIELD 

ADD 0007 TO CMP INSTR 

CMP PI TO PJ IN ASU 04 

TO INTER CHANGE ROUTINE 

SUB 1 FROM FIELD COUNTER 

TR TO SIFT NEXT ENTRY 

I - 1 

ADO 0007 TO LOD INSTR 

LOD ITH ENTRY INSTR 

ITH ENTRY ADDRESS 

LOAD JTH ENTRY INSTR 

JTH ENTRY ADDRESS 

MAKE ASU 07 ZONING 

MAKE ASU 11 ZONING 

UNL ITH ENTRY INSTR 

JTH ENTRY ADDRESS 

UNL JTH ENTRY INSTR 

ITH ENTRY ADDRESS 

MAKE ASU 07 ZONING 

MAKE ASU 11 ZONING 

LOD ITH ENTRY IN ASU 07 

LOD JTH ENTRY IN ASU 11 

UNL ITH ENTRY IN JTH POSITION 



LNG 



SYMBOLIC 
LOC OP ADDR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



2.22.0 

2.23.0 

2.24,0 

2.25.0 

2.26.0 

2.30.0 

2.30,1 

2.30.2 

2.30.3 

2.30.4 

2.32.0 

2.32.5 

2.33.0 

2.33.5 

2.34.0 

2.34.5 

2.35,0 

2,35.5 

2.36.0 

2.36.5 

2,37,0 

2.37.5 

2.37.6 

2.38.0 

2,38.5 

2.39.0 

2.39.5 

2.40.0 

2.40.5 

2.41.0 

2.41.5 

2.42.0 

2.42.5 

2.43.0 

2.43.5 

2.44.0 

2.44.5 

2.48. 

2.48.5 

2.49.0 

2.49.5 

2,50.0 

2.50.5 

2.51.0 

2.51.5 

2.52.0 

2.52.5 

2.53.0 

2.53.5 

2.54.0 

2.54.5 

2.55,0 

2,55.5 

2,56,0 

2.71.5 

2.71.7 

2.72.0 

2.72.3 

2.72.5 

2.72.7 

2.73.0 

2.73.3 



UNL 
RCV 

TMT 

LOD 

TR 

LOD 

SGN 

RCV 

TMT 

RAD 

LOD 

UNL 

ADM 

ADM 

RAD 

RAD 

SUB 

TRP 

TR 

CMP 

TRH 

TRE 

TR 

CMP 

TRH 

TRE 

UNL 

SGN 

LOD 

ADM 

UNL 

ADM 

SUB 

TRZ 

UNL 

ADM 

TR 

CMP 

TRH 

TRE 

LOD 

SUB 

SGN 

SET 

ST 

LOD 

ADM 

UNL 

ADM 

TR 

SEL 

WR 

HLT 

TR 

SET 

SET 

RAO 

ST 

SET 

NTR 

TR 



2.25.0 

2.06.4 

2.07.6 

73.57.0 

2.30.1 

72.77.0 

71.65.0 

71.04.0 

73.08.0 

73. 12.0 

73.12.0 

73.12.0 

73.12.0 

73.12,0 

73.12,0 

2,36.5 

2.54.5 

72.77.0 

2.38,0 

2.38.0 

2.54.5 

73.06.0 

2.48,0 

2.42.5 

73.12.0 

73.12.0 

73.12.0 

2.41.5 

73.11.0 

2.71.7 

71.04.0 

2.71.5 

72.77.0 

2.32.0 

2.32.0 

73.06,0 

2.52.0 

2.52.0 

73.06.0 

73.12.0 

2.50.5 

0003 

73.12.0 

73.12.0 

2.53.0 

73.10.0 

2.71.5 

2.42,5 

0500 

70,55,0 

0006 

2.54,5 

0001 

0001 

71.06.0 

73.13.0 

0003 

2.73.5 
5.02.0 



00 
-003 00 
-003 04 
00 
00 
02 
01 
-003 00 
-004 04 
03 

6007 07 
07 

-004 01 
01 
08 
14 

-004 08 
08 
00 
08 
00 
00 
00 

6008 14 
00 
00 
08 

-004 01 
07 
06 

-035 07 
03 
02 
02 
14 
06 
00 

&008 08 
00 
00 

&008 08 
08 
01 
08 

-004 08 
07 
06 

-035 07 
03 
00 
00 

6001 00 
00 
00 
12 
13 
04 
04 
08 

12 
00 



01089 7 
01094 U 
01099 9 
01104 8 
01109 1 
01114 8 
01119 T 
01124 U 
01129 9 
01134 H 
01139 8 
01144 7 
01149 6 
01154 6 
01159 H 
01164 H 
01169 P 
01174 M 
01179 1 
01184 
01189 
01194 
01199 
01204 
01209 
01214 
01219 
01224 
01229 8 
01234 6 
01239 7 
01244 6 
01249 P 
01254 N 
01259 7 
01264 
01269 
01274 
01279 
01284 
01289 8 
01294 P 
01299 T 
01304 B 
01309 F 
01314 8 
01319 
01324 
01329 
01334 
01339 
01344 
01349 
0135* 
01359 8 
01364 B 
01369 H 
01374 F 
01379 B 

01384 X 
01389 1 



1101 1101 
0951 0Z51 



0984 
9751 
1119 
9133 
9038 
8975 
9499 
9605 
9601 
9605 
9605 
9605 
9601 
1184 
1339 
9136 
1204 
1204 
1339 
9419 
1274 
1249 
9605 
9601 
9605 
1239 
9562 
1364 
8975 
1359 
9136 
1139 
1139 
9419 
1314 
1314 
9419 
9605 
1299 
0003 
9601 
9605 
1324 
9527 
1359 
1249 
0500 
8569 
0006 
1339 
0001 
0001 
8979 
9609 
0003 



0984 
97N1 
11/9 
9133 
9 38 
89G5 
9UI9 
9W65 
96 1 
96 5 
9005 
9F-5 
9001 
1J84 
1339 
9J36 
1204 
1204 
1339 
9DJ9 
1274 
1249 
9005 
96 1 
9W65 
1SL9 
9VF2 
13F4 
69P5 
13N9 
9AL6 
1/L9 
1139 
9M19 
1314 
1314 
9M19 
9005 
12Z9 
0-03 
9001 
9W&5 
1TK4 
9V87 
13E9 
1249 
0500 
8569 
0006 
1339 
0601 
06 1 
8Z79 
9W09 
0-03 



DATA OR DESCRIPTION 
UNL JTH ENTRY IN ITH POSITION 

LOD NEW ITH ENTRY IN ASU 04 

FIELD COUNT 

PUT 6 IN ASU 01 

COMPARISON AREA 

4 ZEROS 

ASU 03 — 61 

LOD ITH ENTRY IN IN ORDERED CTRL FIELD LISTING 

UNL TO WORK SPACE 

PUT SIGN ON LI 

PUT SIGN ON PI 

PI 

PI 

COMPUTE PI - LI 

TO ERROR ROUTINE 
TO PREVIOUS PI 



SORT 51 



1394 1C94 
2129 2129 



TO ERROR ROUTINE 
TO SIGMA LI 



UNL PI - LI TO WORK SPACE 

REMOVE SIGN FROM LI 

LOD ENTRY 

RAISE UNLOAD AODRES BY 0007 

UNL ENTRY TO TABLE 2 

RAISE TABLE 2 COUNT 

REDUCE FIELD COUNTER BY 1 

TABLE BUILD UP COMPLETE 

UNLOAD PI TO COMPARISON AREA 

RAISE I ADDRESS BY 0007 

CMP PI - LI TO SIGMA LI 



SIGMA LI 

LESS PI 

MAKE ASU TRIGGER PLUS 

SET ASU 08 TO 3 PLACES 

STORE PI - SIGMA LI IN WORK SPACE 

LOAD ENTRY 

RAISE UNLOAD ADDRESS BY 0007 

UNL ENTRY TO TABLE 1 

RAISE TABLE 1 COUNT 



ERROR MESSAGE 

CTRL CARD ERROR — OVERLAPPING FIELDS 

TABLE 1 COUNTER 

TABLE 2 COUNTER 

PLACE 3 ZEROS IN Ll-I WORK SPACE 

X 

INTERROGATING TABLES 
MORE TABLE 1 ENTRIES 
NO MORE TABLE 1 ENTRIES 



C LNG 

L 



SYMBOLIC 
LOC OP AODR 



INCR 



ASU LOC 



ACTUAL S 
OP AOOR ADDR N 



2 


73. 


2 


73. 


2 


74. 


2 


75. 


2 


75. 


2« 


75. 


2 


75. 


2 


75. 


2 


76. 


2. 


76, 


2 


76. 


2 


76. 


2 


76. 


2 


77. 


2 


77. 


2 


77. 


2 


77. 


2 


78. 


2 


78. 


2 


78. 


2 


78. 


2 


78. 


2 


79. 


2 


79, 


2 


79» 


2 


79. 


2 


80. 


2 


80. 


2 


.60, 


2 


80. 


2 


80. 


2 


.81. 


2 


.81. 


2 


.84. 


2 


.84. 


2 


.05. 


2 


.85. 


2 


.85. 


2 


.85. 


2 


86. 


2 


.86. 


2 


.86. 


2 


.36. 


2 


.86. 


2 


.87. 


2 


.87. 


2 


87. 


2 


87. 


2 


.88. 


2 


.88. 


2 


.88. 


2 


.88. 


2 


.89. 


2 


.89. 


2 


.89. 


2 


.89. 


2 


.89. 


2 


.90. 


2 


.90. 


2 


.90. 


2 


.90. 


3 


.00. 



LOD 
UNL 
RAD 
LOD 
UNL 
ADD 
CMP 
SET 
TRH 
ADM 
ADM 
SUB 
ADM 
ADM 
ADM 
RAD 
ADM 
ADM 
ADM 
ADM 



ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
NOP 
ADM 
TR 



NTR 

TR 
LOD 

SUB 

TRZ 

RAD 

ST 

SGN 

LOD 

ST 

TR 

SUB 

RAD 

SUB 

ST 

ST 

ADM 

RAD 

ADD 

TR 

LOD 

ADD 

SET 

ST 

ADM 

TR 



73.10 
73.12 
73.13 
73.11 
73.14 
73.12 
73.14 



0004 



2.85 
10.85 
32.08 
73.13 
73.13 
10.84 
32.06 
73.12 
10.85 
32.07 
10.84 
32.05 



2.76 
2.76 
2.77 
2.77 
2.77 
2.78 
2.78 
2.78 
2.87 
2.73 
2.73 



2.85 
2.76 

73.14 
73.13 

2.89 
73.12 
73.12 

2.80 
73.14 
73.14 

2.76 
73.12 
73. 12 
73.12 
73.12 
73.12 

2.80 
73.14 
73.14 

2.90 
73.14 
73.13 



0003 



73.13 
2.75 
2.74 



-028 07 
07 
04 

-028 07 
07 

-004 04 
04 
04 
00 
04 
04 
04 
04 
04 
04 
04 
04 
04 

-004 01 

-004 01 



05 
05 
05 
05 
05 
05 
05 
05 
00 
06 
00 



13 

00 

08 

08 

08 

-004 09 

-004 08 

■004 01 

04 

04 

00 

-004 09 

04 

-004 04 

•004 09 

04 

-004 01 

-004 04 

04 

00 

•004 04 

04 

04 

04 

06 

00 



01394 8 
01399 7 
01404 H 
01409 8 
01414 7 
01419 G 
01424 4 
01429 B 
01434 K 
01439 
01444 
01449 
01454 
01459 
01464 
01469 H 
01474 6 
01479 6 
01484 6 
01489 6 



01494 
01499 
0150* 
01509 
01514 
01519 
01524 
01529 
01534 
01539 
01544 



01549 X 
01554 1 
01559 8 
01564 P 
01569 N 
01574 H 
01579 F 
01584 T 
01589 8 
01594 F 
01599 1 
01604 P 
01609 H 
01614 P 
01619 F 
01624 F 
01629 6 
01634 H 
01639 G 
01644 1 
01649 8 
01654 G 
01659 B 
01664 F 
01669 6 
01674 1 



9534 
9605 
9609 
9569 
9617 
9601 
9617 
0004 
1549 
3469 
7484 
9609 
9609 
3464 
7474 
9605 
3474 
7479 
3455 
7465 



1439 
1444 
1459 
1464 
1474 
1479 
1484 
1489 
1604 
1394 
1384 



1559 
1439 
9617 
9609 
1649 
9601 
9601 
1530 
9617 
9617 
1439 
9601 
9605 
9601 
9601 
9605 
1530 
9613 
9617 
1659 
9613 
9609 
0003 
9609 
1409 
1404 



9VC4 
9W&5 
9W09 
9VF9 
9WA7 
9W01 
9W17 
04 
1549 
3U69 
7U84 
9W09 
9W09 
3U64 
7U74 
9W05 
3U74 
7U79 
34V5 
74W5 



1UT9 
1UU4 
1UV9 
1UW4 
1UX4 
1UX9 
1UY4 
1UY9 
1604 
1TR4 
1364 



1EV9 
1439 
9017 
9O09 
1049 
90 1 
9001 
15T0 
9W17 
9W17 
1439 
90 1 
9W05 
9W01 
90 1 
9W05 
15T0 
9W13 
9W17 
1659 
9W13 
9W09 
03 
9W09 
1U-9 
1404' 



DATA OR DESCRIPTION 



TABLE 1 ENTRY TO WORK SPACE 

X 

GET PREVIOUS SUM OF Ll-I 

TABLE 2 ENTRY TO WORK SPACE 

PLACE TABLE 2 ENTRY INTO WORK SPACE 

INC BY NEXT Ll-I 

SUM OF Ll-1 WITH P2-I 



INC LOD INST-FIRST PASS 

INC UNL INST-FINAL PASS 

OLD SUM OF Ll-I 

NEW SUM OF Ll-I 

INC SET INST-FIRST PASS 

INC SET INST - FINAL PASS 

GET Pl-I 

INC UNL INST-FIRST PASS 

INC LOD INST FINAL PASS 

SET SAVING SW TO NOP 

SET REPLACING SW TO NOP 

MODIFYING ASSIGNMENT PROG 

INST SPECIFYING SORT INST 

X 

X 

X 

X 

x 
x 

X 

SWITCH #25 

TO PICK UP NEXT TABLE 1 ENTRY 



NEW SUM OF Ll-I CROSSES A CONTROL FIELD 

MORE TABLE 2 ENTRIES 

NO MORE TABLE 2 ENTRIES 

GET P2-I 

DEC BY PREVIOUS SUM OF Ll-I 

FOR STORAGE IN Ll-I WORK SPACE 

SWITCH #25 TO TR 
P2-I INTO ASU 04 

TO SET UP ROUTINE 

NEW Ll-I 

GET Pl-I 

NEW Pl-I 

INTO Ll-I WORK SPACE 

INTO Pl-I WORK SPACE 

SWITCH #25 TO NOP 

L2-2 

INC BY P2-I 

SUM OF Ll-I PLUS L2-I 
X 

FOR NEW SUM OF Ll-I 

TO PICK UP NEXT TABLE 2 ENTRY 

TO TEST AGAINST NEXT TABLE 2 ENTRY 



SORT51 



SYMBOLIC 
LOC OP ADOR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



3101.0 

3.02.0 

3.02.5 

3.03.0 

3 a 04 • 

3.05.0 

3.06.0 

3.07.0 

3.09.0 

3.10.0 

3.11.0 

3.12.0 

3.13.0 

3.14.0 

3.15.0 

3.16.0 

3.17.0 

3.18.0 

3.23.0 

3.24.0 

3.25.0 

3.26.0 

3.27.0 

3.28.0 

3.30.0 

3.31.0 

3.32.0 

3.33.0 

3.34.0 

3.35.0 

3.35.5 

3.36.0 

3.39.0 

3.41.0 

3.42.0 

3.49.0 

3.50,0 

3.51,0 

3.51.7 

3.52.0 

3.53.0 

3.54,0 

3.55.0 

3.56,0 

3,57.0 

3,58,0 

3,61,0 

3,61,5 

3.62.0 

3.63,0 

3,64,0 

3,66,0 

3,68,0 

3.70.0 

3,71.0 

3.72.0 

3.73.0 

3.74.1 

3.74,2 

3,75.0 

3.77.0 

3,78,0 



RAD 
RAD 
RAD 

SET 
RAD 
ST . 
RAD 

LOD 

CMP 

TRE 

ADM 

ADM 

ADD 

ST 

ADM 

ADM 

LOD 

ADM 

ADM 

ADD 

SUB 

TR2 

ADM 

ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
TR 

SGN 
SGN 
RAD 
SET 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
NOP 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 
ADM 



71.12.0 
71.03.0 
71.13.0 
0004 
71.06.0 
73.06.0 
71.17.0 

73.06.0 
71.02.0 

3.51.0 
10.58.0 
32.26.0 
73.06.0 
73.06.0 
10.60.0 
32.27.0 
73.06.0 
10.59.0 
32.28.0 
71.04.0 
71.04.0 

3.52.0 

3.13.0 
3.17,0 
3. 14.0 
3.24.0 
3. 18.0 
3.25.0 
3.51.0 
3.51.7 
3. 10.0 
3.23.0 
3.10.0 

10.57.0 
32.25.0 
73.06.0 
0004 
11.02.5 
11.03.0 
11.04.0 
11.52.0 
11.37.0 
21.03.0 
22.01,5 
21»04.0 
21,30.0 
22.02.0 
31,03,0 
12.57.0 
5.02.0 
31.04.0 
32.02.0 
19.24,8 
33,05,5 
33,10.5 
11,02.0 
12,55.0 
12,60.0 



05 
02 
06 
04 
00 
&003 00 
03 

&018 00 
00 
00 
00 
00 

&003 00 

&003 00 
00 
00 

&022 04 
04 
04 
02 
03 
03 

05 

05 
05 
05 
05 
05 
05 
05 
06 
06 
00 

-004 01 
-004 01 
&003 00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



01679 H 
01684 H 
01689 H 
01694 B 
01699 H 
01704 F 
01709 H 



9001 9 1 
8974 89P4 
9005 9 -5 
0004 04 
8979 8979 
9414 9414 
9010 90A0 



01714 8 
01719 4 
01724 
01729 
01734 
01739 
01744 
01749 
01754 
01759 8 
01764 6 
01769 6 
01774 G 
01779 P 



01784 N 



01789 
01794 
01799 
01804 
01809 
01814 
01819 
01824 
01829 
01834 
01839 



01844 T 

01849 T 

01854 H 

01859 B 

01864 

01869 

01874 

01879 

01B84 

01889 

01894 

01899 

01904 

01909 

01914 

01919 

01924 

01929 

01934 

01939 

01944 

01949 

01954 

01959 

01964 



9429 
8973 
1844 
3364 
7574 
9414 
9414 
3374 
7579 
9433 
3369 
7584 
8975 
8975 
1854 

1729 
1749 
1734 
1764 
1754 
1769 
1844 
1849 
1714 
1759 
1714 

3355 
7565 
9414 
0004 
3564 
3569 
3584 
3809 
3739 
5984 
6199 
5994 
6134 
62 04 
7379 
4104 
2129 
7389 
7464 
5514 
7689 
7714 
3559 
4099 
4109 



9429 

8973 
1844 
3364 
7574 
9414 
9414 
3374 
7579 
9U33 
3T69 
7V84 
89P5 
89G5 
18E4 

1XS9 
1XU9 
1XT4 
1XW4 
1XV4 
1XW9 
1YU4 
1YU9 
1XJ4 
1XN9 
1714 

33V5 
75W5 
9414 
0004 
3564 
3569 
3584 
3809 
3739 
5984 
6199 
5994 
6134 
6204 
7379 
4104 
2129 
7389 
7464 
5514 
7689 
7714 
3559 
4099 
4109 



DATA OR DESCRIPTION 



MORE THAN ONE CONTROL FIELD 

GET A PLUS 0025 

ASU 02 - FIELD COUNTER 

GET A PLUS 0007 

FOR POSTION P-N 

FOR LENGTH L-N 

STORE 3 ZEROS 

GET A 5 

GET LENGTH 

CHECK IF BLANK 

CHECK IF LESS THAN 5 CONT, FIELDS 

FIRST PASS 

FINAL PASS 

INCREASE BY PREVIOUS SUM OF LENGTHS 

FIRST PASS 

GET POSITION 

FIRST PASS 

LAST PASS 

INC FIELD COUNTER 

DEC BY 1 

CHECK IF 5TH CONTROL FIELD 

INC. CYCLE INSTRUCTIONS 

PROGRAM ADDRESSES 

X 

X 

X 

X 

X 

FOR SKIPPING OTHER SET UPS 

X 

CONTROL CARD ADDRESSES 

X 

REPEAT CYCLE 

GET TOTAL LENGTH 

SWITCH 5, 6, 8, OR 9 TO TR 

GET TOTAL LENGTH 



SORT51 



TO SW INTERROGATION IF ONE CTRL FIELD 



C LNG 


SYMBOLIC 


INCR 






ACTUAL 


S 


DATA OR DESCRIPTION 


L 


LOC 


OP 


ADDR 




ASU 


LOC 


OP 


AODR 


AODR N 






3.79.0 


ADM 


8.07.5 




00 


01969 


6 


2909 


2909 






3.80.0 


ADM 


8.07.7 




00 


01974 


6 


2914 


2914 






3.81.0 


TR 


2.04.5 




00 


01979 


1 


0889 


0889 




7 


4.CC.C 




















7 


4.01,0 


















IF ONLY ONE CONTROL FIELD 




4.02.0 


LOD 


73.06.0 


6025 


00 


01984 


8 


9436 


9436 


SET L2 




4.03.0 


CMP 


71.02.0 




00 


01989 


4 


8973 


8973 


CHECK IF BLANK 




4.04.0 


TRE 


4.06.0 




00 


01994 


L 


2004 


2004 


OK 




4.05.0 


TR 


1.19.0 




00 


01999 


1 


0859 


0859 


CONTROL CARD ERROR 




4.06.0 


RAD 


71.14,0 




01 


02004 


H 


9006 


90 6 


GET AN 8 




4.06.3 


LOD 


73,06,0 


&Q18 


00 


02009 


8 


9429 


9429 


LENGTH OF CONTROL WORD 




4.06.5 


CMP 


72.12.0 




00 


02014 


4 


9089 


9089 




1 


4.06.6 


SET 


0004 




00 


02019 


B 


0004 


0004 






4.06.7 


TRH 


1.19.0 




00 


02024 


K 


0859 


0859 






4.06.8 


CMP 


73.06.0 


&022 


00 


02029 


4 


9433 


9433 


TO CTRL FIELD POSITION 




4.06.9 


TRH 


2.54.5 




00 


02034 


K 


1339 


1339 


CTRL FIELD OVERLAPS BEGINNING OF R 




4.07,0 


UNL 


11.03.0 


-004 


01 


02039 


1 


3565 


35W5 


CHANGE UNL TO LOD 




4.10.0 


SGN 


3.70.0 


-004 


01 


02044 


T 


1920 


19S0 


TO SKIP RECORD REARRANGEMENT 




4.11.0 


LOD 


72.07.0 




01 


02049 


8 


9070 


90X0 


GET AN A 




4.12.0 


UNL 


11.02.5 


-004 


01 


02054 


7 


3560 


35W0 


CHANGE LOD TO NOP 




4.18.0 


ADM 


11.02.0 




00 


02059 


6 


3559 


3559 


FIRST PASS 




4.19.0 


ADM 


19.24.8 




00 


02064 


6 


5514 


5514 






4.21.0 


ADM 


31.04.0 




00 


02069 


6 


7389 


7389 






4.21.1 


ADM 


33.05.5 




00 


02074 


6 


7689 


7689 






4.21.2 


ADM 


33. 10.5 




00 


02079 


6 


7714 


7714 






4.22.0 


ADM 


32.02.0 




00 


02084 


6 


7464 


7464 






4.23.0 


ADM 


12.55.0 




00 


02089 


6 


4099 


4099 






4.24.0 


ADM 


12.60,0 




00 


02094 


6 


4109 


4109 






4.24.3 


ADM 


8.07.5 




00 


02099 


6 


2909 


2909 






4.24.5 


ADM 


8.07.7 




00 


02104 


6 


2914 


2914 




1 


4.25.0 


SET 


0004 




00 


02109 


B 


0004 


0004 


GET PI 




4.26.0 


LOD 


73.06.0 


&Q22 


00 


02114 


8 


9433 


9433 


X 




4.27.0 


ST 


73.06.0 


&003 


00 


02119 


F 


9414 


9414 


PLACE INSTEAD OF LENGTH 




4.28.0 


TR 


3.51.0 




00 


02124 


1 


1844 


1844 




7 


5.00.0 




















7 


5.01.0 


















INTERROGATING SWITCHES 




5.02.0 


RAO 


71.03.0 




04 


02129 


H 


8974 


8Z74 


GET A ZERO 




5.05.0 


NOP 


5.20.0 




oo 


02134 


A 


2184 


2184 


TR IF MASTER ON 0204 




5.07.0 


UNL 


10.19.0 




04 


02139 


7 


3129 


3/29 


ADD OF UNIT CONTAINING MASTER FILE 




5.08.0 


UNL 


10.28.0 




04 


2144 


7 


3184 


3/84 


X 




5.09.0 


UNL 


10.38.0 




04 


02149 


7 


3234 


3S34 


X 




5.10,0 


UNL 


10,43,0 




04 


02154 


7 


3274 


3S74 


X 




5.11.0 


UNL 


11,12.0 




04 


02159 


7 


3629 


3W29 


X 




5.12.0 


UNL 


12.02.0 




04 


02164 


7 


3889 


3Y89 


X 




5.15.0 


UNL 


70.06.0 




04 


02169 


7 


82 02 


8S02 


X 




5.16.0 


UNL 


70.26.0 




04 


02174 


7 


8400 


8U00 


X 




5.17.0 


SGN 


10.15.0 


-004 


01 


02179 


T 


3105 


31 5 


SET SW #1 TO TR 




5.20.0 


NOP 


5.32.0 




00 


02184 


A 


2234 


2234 


TR IF CHECK PT ON 0205 




5.22.0 


LOD 


5.56.0 


-002 


04 


02189 


8 


2262 


2S62 


GET A 4 




5.23.0 


UNL 


19.02.0 




04 


02194 


7 


5334 


5T34 






5.24.0 


UNL 


25.12.5 




04 


02199 


7 


7039 


7 39 






5.24.5 


UNL 


19.02.0 




04 


02204 


7 


5334 


5T34 






5.25.0 


UNL 


19.07.0 




04 


02209 


7 


5404 


5U04 






5.26.0 


UNL 


19.10.0 




04 


02214 


7 


5434 


5U34 






5.27.0 


UNL 


19.12.0 




04 


02219 


7 


5454 


5U54 






5.28.0 


UNL 


25.34.0 




04 


02224 


7 


7159 


7/59 






5.29.0 


UNL 


25.36.0 




04 


02229 


7 


7179 


7/79 




1 


5.32.0 


SEL 


0916 




00 


02234 


2 


0916 


0916 


CHECK IF PRINT OUT IS DESIRED 




5.33.0 


TRS 


8.02.0 




00 


02239 





2874 


2874 


NO 


7 


5.50,0 




















7 


5.51.0 


















SET UP FOR PRINT OUT 


7 


5.51.5 


















TITLE. IDENTIFICATION. AND TOP IND 



SORT51 



C LNG 


SYMBOLIC INCR 




ACTUAL 


S 


L 


LOC OP 


ADDR 


ASU 


LOC OP 


ADDR 


ADDR N 


1 


5.52.0 SET 


0001 


01 


02244 B 


0001 


00 1 




5.53.0 LOD 


73.06.0 &050 


01 


02249 8 


9461 


94W1 




5.54.0 RCV 


73.06.0 &050 


oo 


02254 U 


9461 


9461 




5.55.0 TMT 


71.52.0 


01 


02259 9 


9012 


90/2 


1 


5.56.0 SEL 


04 00 


00 


02264 2 


0400 


0400 




5.57.0 WR 


70.21.0 


00 


02269 R 


8335 


8335 




5.58.0 WR 


73.06.0 &050 


00 


02274 R 


9461 


9461 




5.59.0 WRE 


72.92.0 


00 


02279 Z 


9147 


9147 




5.61.0 UNL 


73.06.0 &050 


01 


02284 7 


9461 


94W1 


7 


5.63.0 












7 


5.64.0 












1 


5.65.0 SET 


0001 


01 


02289 B 


0001 


00 1 


1 


5.66.0 SET 


0002 


02 


02294 B 


0002 


00-2 


1 


5.67.0 SET 


0004 


04 


02299 B 


0004 


04 




5.68.0 LOD 


72.57.0 


04 


02304 8 


9115 


9/15 




5.69.0 RAD 


71.68.0 


05 


02309 H 


9062 


9 W2 


1 


5.70.0 SET 


OOOO 


06 


02314 B 


0000 


-0 


1 


5.71.0 SET 


0010 


06 


02319 B 


0010 


JO 




5.72.0 SPR 


72.86.0 


06 


02324 5 


9146 


9/M6 




5.73.0 LOD 


72.86.0 


06 


02329 8 


9146 


9/M6 


1 


5.74.0 SET 


0005 


07 


02334 B 


0005 


55 




5.75.0 LOD 


72.86.0 


07 


02339 8 


9146 


9/D6 




5.76.0 RAD 


71.64.0 


08 


02344 H 


9037 


9-37 


1 


5.77.0 SET 


0004 


09 


02349 B 


0004 


0- 4 




5.78.0 LOD 


72.56.0 


09 


02354 8 


9111 


9J/1 




5.79.0 RAD 


71.63.0 


10 


02359 H 


9033 


9-L3 


1 


5.80.0 SET 


0001 


11 


02364 B 


0001 


0-&1 




5.81.0 LOD 


70.31.0 


11 


02369 8 


8446 


8MD6 




5.82.0 UNL 


72.98.0 


11 


02374 7 


9265 


9KF5 


7 


5.89.0 














5.90.0 TR 


5.96.0 


00 


02379 1 


2414 


2414 




5.91.0 RAD 


71.66.0 


05 


02384 H 


90 53 


9 V3 




5.92.0 LOD 


72.60.0 


04 


02389 8 


9127 


9/27 




5.93.0 UNL 


6.05.0 


04 


02394 7 


2424 


2U24 




5.94.0 LOD 


72.61.0 


04 


02399 8 


9131 


9/31 




5.95.0 UNL 


7.01.0 


04 


02404 7 


26 54 


2W54 




5.96.0 LOD 


72.58.0 


04 


02409 8 


9119 


9/19 




5.96.0 UNL 


72.93.0 


05 


02414 7 


9152 


9/V2 


7 


6.00.0 












7 


6.01.0 














6.04.0 RCV 


72.73.0 


00 


02419 U 


9132 


9132 




6.05.0 TMT 


10.03.0 -004 


05 


02424 9 


3035 


3 T5 




6.06.0 LOD 


72.73.0 


01 


02429 8 


9132 


91T2 




6.07.0 CMP 


71.02.0 


01 


02434 4 


8973 


89X3 




6.08.0 TRE 


7.01.0 


00 


02439 L 


2654 


2654 




6.09.0 UNL 


72.80.0 


01 


02444 7 


9137 


91T7 




6.10.0 LOD 


72.74.0 


01 


02449 8 


9133 


91T3 




6.11.0 CMP 


72.53.0 


01 


02454 4 


9105 


91 5 




6.12.0 TRH 


6.14.0 


00 


02459 K 


2469 


2469 




6.13.0 ADD 


71.62.0 


01 


02464 G 


9029 


90S9 




6.14.0 UNL 


72.82.0 


01 


02469 7 


9139 


91T9 


1 


6.15.0 SET 


0001 


01 


02474 B 


0001 


00 1 


7 


6.16.0 














6.17.0 RAD 


71.59.0 


02 


02479 H 


9021 


90K1 




6.18.0 LOD 


72.75.0 


01 


02484 8 


9134 


91T4 




6.19.0 CMP 


72.52.0 


01 


02489 4 


9104 


91 4 




6.20.0 TRE 


6.31.0 


00 


02494 L 


2549 


2549 




6.21.0 CMP 


72.53.0 


01 


02499 4 


9105 


91 5 




6.22.0 TRH 


6.32.0 


00 


02504 K 


2554 


2554 




6.23.0 CMP 


72.54.0 


01 


02509 4 


9106 


91 6 




6.24.0 TRH 


6.31.0 


00 


02514 K 


2549 


2549 




6.25.0 CMP 


72.55.0 


01 


02519 4 


9107 


91 7 



DATA OR DESCRIPTION 



TO SAVE DIGIT BEFORE IDENTIFICATION 
X 

PUT BLANK BEFORE CONTROL 
CARD INFORMATION 

TITLE OF PRINT OUT 

IDENTIFICATION 

TOP INDEX 

REPLACE DIGIT BEFORE IDENTIFICATION 

HOUSEKEEPING 

ASU 1 - OPERATION AND ZONE CHECKING 

ASU 2 - ASU VALUE 

ASU 4 - ADD OF LAST INSTRUCTION 

ASU 5 PRINT INDEX — SORT 

ASU 6-10 BLANKS 

X 

X 

X 

ASU 7-5 BLANKS 

X 

ASU 8 - PLUS 0005 

ASU 9 - LAST PRINT ADD 

X 

ASU 10 - PRINT ADO INCREMENT 

ASU 11 - GROUP MARK 

X 

REPLACE GROUP MARK 

IF SORT PROGRAM DESIRED 

SWITCH #20 - NOP FOR PRINT OUT OF ASSIGNMENT 

PRINT INDEX FOR ASSIGNMENT 

ADD OF FIRST ASSIGNMENT INSTRUCTION 

PLACE IN PROGRAM 

INITIAL PRINT LINE ADDRESS 

X 

LAST PRINT ADD 

PLACE INITIAL INDEX IN PRINT FIELD 

ANALYSIS OF SORT OR ASSIGNMENT PROGRAM 

INSTRUCTION WORK AREA 

GET INSTRUCTION 

GET OPERATION DIGIT 

CHECK IF BLANK 

YES 

PLACE IN ASSEMBLY WORK SPACE 

GET 4TH ORDER DIGIT 

CHECK ZONING 

DEZONE AND PLACE 1 

PLACE IN ASSEMBLY WORK SPACE 

DECODING ASU DESIGNATION 

PLACE 00 IN ASU 2 

GET 3RD ORDER DIGIT 

CHECK IF SLASH 

ZERO ZONE 

CHECK IF GREATER THAN Z 

NO ZONE 

CHECK IF GREATER THAN R 

ZERO ZONE 

CHECK IF GREATER THAN I 



SORT 51 



LNG 



SYMBOLIC 
LOC OP AODR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADOR N 



6 


.26. 


6 


.27. 


6 


.28. 


6 


■ 29. 


6 


.30. 


6 


.31. 


6 


.32. 


6 


.33. 


6 


.34. 


6 


.35. 


6 


.36. 


6 


.37. 


6 


38. 


6 


.39. 


6 


.40. 


6 


• 41. 


6 


.42. 


6 


.43. 


6 


.44. 


6 


45. 


6 


46. 


6 


.47. 


6 


.48. 


6 


.49. 


6 


.50. 


6 


.51. 


7 


.00. 


7 


.01. 


7 


02. 


7 


.03. 


7 


04. 


7 


05. 


7 


.06. 


7 


.07. 


7 


.08. 


7 


09. 


7 


.10. 


7 


11. 


7 


12. 


7 


12. 


7 


13. 


7 


13. 


7 


.13. 


7 


.14. 


7 


15. 


7 


16. 


7 


17. 


7 


18. 


7 


19. 


7 


20. 


7 


21. 


7 


21. 


7 


22. 


7 


• 23. 


7 


23. 


7 


23. 


7 


24. 


7 


25. 


7 


26. 


7 


30. 


7 


31. 


7 


32. 



TRH 6 
ADO 71 
TR 6 
ADD 71 
TR 6 
ADD 71 
LOD 72 
CMP 72 








o 
o 



o 



TRE 6 
CMP 72 
TRH 6 
CMP 72 
TRH 6 
CMP 72 
TRH 6 
ADO 71 
TR 6 
ADD 71 
TR 6 
ADD 71 
UNL 72 
LOD 72 
ADD 71 
UNL 72 
RCV 72 
TMT 72 



RCV 72 

TMT 72 
UNL 72 
CMP 6 

TRE 

CMP 

TRE 

ADM 

ADM 

TR 

SEL 

WRE 72 

SEL 

TRS 7 

SEL 

TRS 7 

UNL 72 

ADD 71 

UNL 72 

RCV 7 



TMT 72 



TR 7 
SEL 

WRE 72 

1 UNL 72 
SEL 

TRS 7 
SEL 

TRS 7 
SEL 

WR 70 
TR . 8 
SEL 

WR 70 
TR 7 



29.0 
53.0 
32.0 
54,0 
32.0 
55.0 
76.0 
52.0 
45.0 
53.0 
46.0 
54.0 
45.0 
55.0 
43.0 
56.0 
46.0 
57.0 
46.0 
58.0 
85.0 
76.0 
60,0 
83.0 
84.0 
77.0 

93.0 
80.0 
86.0 
05.0 
20.0 
01.0 
11.0 
01.0 
05.0 
04.0 
0400 
92.0 
0902 
30.0 
0903 
33.0 
98.0 
61.0 
93.0 
01.0 
59.0 
09.0 
0400 
92.0 
98.0 
0902 
36.0 
0903 
39.0 
0500 
59.0 
02.0 
0400 
63.0 
13.5 



00 
02 
00 
02 
00 
02 
01 
01 
00 
01 

oo 

01 
00 
01 
00 
02 
00 
02 
00 
02 
02 
02 
02 
02 
00 
01 

£•081 00 
06 

06 
04 
00 
09 
00 
10 
08 
00 
00 
00 
00 
00 
00 
00 

11 

05 
05 
-003 00 
-003 04 
00 
00 
00 

11 

00 
00 
00 
00 
00 

G-001 00 
00 
00 

&001 00 



02524 

02529 

02534 

02539 

02544 

02549 

02554 8 

02559 4 

02564 

02569 

02574 

02579 

02584 

02589 

02594 

02599 

02604 

02609 

02614 

02619 

02624 

02629 8 

02634 G 

02639 7 

02644 U 

2 649 9 



02654 
02659 
02664 
02669 
02674 
02679 
02684 
02689 
02694 
02699 
02704 
02709 
02714 
02719 
02724 
02729 
02734 
02739 
02744 
02749 
02754 
02759 
02764 
02769 
02774 
02779 
02784 
02789 
02794 
02799 
02804 
02809 
02814 
02819 



00 02824 1 



2539 
9014 
2554 
9015 
2554 
9016 
9135 
9104 
2619 
9105 
2624 
9106 
2619 
9107 
2609 
9017 
2624 
9018 
2624 
9019 
9145 
9135 
9022 
9141 
9142 
9136 

9233 
9137 
9146 
2424 
2764 
2654 
2704 
2654 
2424 
2419 
0400 
9147 
0902 
2814 
0903 
2829 
9265 
9027 
9152 
2651 
9120 
2694 
0400 
9147 
9265 
0902 
2844 
0903 
2859 
0500 
8592 
2874 
0400 
8610 
2724 



2539 
90J4 
2554 
90J5 
2554 
90J6 
91T5 
91 4 
2619 
91 5 
2624 
91 6 
2619 
91 7 
2609 
90J7 
2624 
90J8 
2624 
90J9 
91M5 
91L5 
90K2 
91M1 
9142 
91T6 

9233 
9/L7 
9/M6 
2U24 
2764 
20V4 
2704 
20N4 
2M24 
2419 
0400 
9147 
0902 
2814 
0903 
2829 
9KF5 
9 S7 
9/V2 
2651 
9/20 
2694 
0400 
9147 
9KF5 
0902 
2844 
0903 
2859 
0500 
8592 
2874 
0400 
8610 
2724 



DATA OR DESCRIPTION 



11 ZONE 

12 ZONE 
X 

11 ZONE 

X 

ZERO ZONE 

GET 2ND ORDER DIGIT 

CHECK IF SLASH 

ZERO ZONE 

CHECK IF GREATER THAN Z 

NO ZONE 

CHECK IF GREATER THAN R 

ZERO ZONE 

CHECK IF GREATER THAN I 

11 ZONE 

12 ZONE 
X 

11 ZONE 

X 

ZERO ZONE 

ASU DESIGNATION IN ASSEMBLY AREA 

GET 2ND AND 3RD DIGITS 

GET RID OF ZONING 

PLACE IN ASSEMBLY AREA 

1ST ORDER DIGIT IN ASSEMBLY AREA 

X 

SETTING UP PRINT LINE 

ANALYSED INSTRUCION TO PRINT AREA 

X 

BLANK ASSEMBLY WORK AREA 

CHECK IF END OF PRINT 

YES 

CHECK IF END OF PRINT LINE 

YES 

INC PRINT ADD 

INC INST ADD 

REPEAT ON NEXT INSTRUCTION 

WRITE LINE 



REPLACE GROUP MARK 
INC INDEX 8Y 50 
PLACE IN PRINT FIELD 
RESET PRINT ADD 
X 



WRITE LAST LINE 
REPLACE G/M 



END OF PRINT 

SET UP FOR SORT 

902 CHECK - EXCEPT LAST LINE 

X 

X 



S0RT51 



LNG 



SYMBOLIC 
LOC OP ADDR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



7.33.0 

7.34.0 

7.35.0 

7.36.0 

7.37.0 

7.38.0 

7.39.0 

7.40.0 

7.41.0 

8.00.0 

8.01.0 

8.02.0 

8.03.0 

8.04.0 

8.05.0 

8.06.0 

8.07.0 

8.07.3 

8.07.5 

8.07.7 

8.08.0 

8.09.0 

8.10.5 

8.11.0 

8.11.5 

8.11.6 

8.11.7 

8.11.8 

8.11.9 

8.12.0 

8.13.0 

8.14.0 

8.15.0 

8.16.0 

8.17.0 

8.18.0 

8.50.0 

8.51.0 

8.52.0 

8.52.5 

8.53.0 

8.54.0 

8.54.1 

8.54.2 

8.54.3 

8.55.0 

10.00.0 

10.01.0 

10.01.5 

10.02.0 

10.03.0 

10.03.5 

10.04.0 

10.04.5 

10.05.0 

10. 06.0 

10.07.0 

10.08.0 

10.09.0 

10.10.0 

10.11.0 

10.12.0 



SEL 

WR 

TR 

SEL 

WR 

TR 

SEL 

WR 

TR 



RAD 
RAD 
RAD 
SET 
LOD 
SET 
LOD 
UNL 
UNL 
LOD 
RAD 
RAD 
SET 
SET 
SET 
SET 
SET 
LOD 
SEL 
TRS 
SEL 
TRS 
SEL 
TRS 
TR 



0400 
70.64.0 &001 
7.14,0 
0400 



oo 

00 
00 

00 



70.63.0 &001 00 



7.23.5 

0400 
70.64.0 &001 
7.25.0 



00 

00 
00 
00 



71.04.0 

71.09.0 

71.04.0 

0001 

70.06.0 

0001 

73.55.0 

73.04.0 

73.15.0 

72.07.0 

71.65.5 

71.65.5 

0010 

0006 

004 

004 

0002 

71.65.0 

0901 

25.02.0 

0904 

25.04.0 

0905 

25.06.0 

10.03.0 



SGN 
ADM 
RAD 
UNL 
SET 
LOO 
UNL 
TR 



RAD 

SEL 

RWD 

I OF 

ADM 

NTR 

SEL 

TRS 

TR 

NOP 

UNL 

RCV 



5.90.0 

5.90.0 

71.67.0 

5.57,0 

0076 



01 
02 
03 
04 
04 
05 
05 
&001 05 
&001 05 
05 
06 
07 
13 
09 
10 
12 
11 
-001 11 
00 
00 
00 
00 
00 
00 
00 



-004 01 

-004 01 

04 



02829 2 
02834 R 
02839 1 
02844 2 
02849 R 
02854 .1 
02859 2 
02864 R 
02869 1 



02874 H 
02879 H 
02884 H 
02889 B 
02894 8 
02899 B 
02904 8 
02909 7 
02914 7 
02919 8 
02924 H 
02929 H 
02934 B 
02939 8 
02944 B 
02949 B 
02954 B 
02959 8 
02964 
02969 
02974 
02979 
02984 
02989 
02994 



04 
00 

73.06.0 &080 00 
72.92.0 &095 00 



5.52.0 



71.13.0 
0200 
0002 

0000 
10.03.5 
10.03.5 

0913 
10.10.0 
10.15.0 
10.15,0 
10,10,0 
10,03,5 



08 
00 
00 

oo 

03 
08 
00 
00 
00 
00 
•004 01 
00 



02999 T 
03004 6 
03009 H 
03014 7 
03019 B 
03024 8 
03029 7 



00 03034 1 



03039 H 

03044 2 

03049 

03054 

03059 

03064 

03069 

03074 

03079 

03084 

03089 

03094 



0400 
8641 
2734 
0400 
8610 
2789 
0400 
8641 
2804 



8975 
8989 
8975 
0001 
8202 
0001 
9750 
9311 
9619 
9070 
9048 
9048 
0010 
0006 
0004 
0004 
0002 
9041 
0901 
6889 
0904 
6899 
0905 
6909 
3039 



0400 
8641 
2734 
0400 
8610 
2789 
0400 
8641 
2804 



89X5 
8909 
89G5 
01 
8S02 
1 
9XV0 
9T/1 
9W/9 
9 XO 
9 M8 
9 D8 
0&/0 
0- 6 
0—4 
0&04 
0-&2 
9-D1 
0901 
6889 
0904 
6899 
0905 
6909 
3039 



2375 
2375 
9057 
2269 
0076 
9491 
9242 
2244 



9005 
0200 
0002 
0000 
3044 
3044 
0913 
3084 
3109 
3109 
3080 
3044 



23X5 
23X5 
9 57 
2S69 
0076 
9491 
9242 
2244 



9-05 
0200 
0002 
0000 
30D4 
3-44 
0913 
3084 
3109 
3109 
30Y0 
3044 



DATA OR DESCRIPTION 



903 CHECK - EXCEPT LAST LINE 

X 

X 

902 CHECK LAST LINE 
X 

X 

903 CHECK LAST LINE 
X 

X 

HOUSE KEEPING FOR FIRST PASS 
ASU 01 - A 1 FOR SWITCH SETT IN 
ASU 02 - ERROR COUNTER 
ASU 03 - OUTPUT ADDRESS 
ASU 04 - INPUT ADDRESS 

ASU 05 - GETS AN A FOR SWITCH SETTING 
FOR PLACING GROUP MARK 

IN CONTROL WORD WORK SPACES 

FOR TYPING CONTROL WORD 

ASU 06 — TAPE CHANGE COUNTER 

ASU 07 — RECORD COUNTER 

ASU - 13 FOR HASH TOTAL COMPUTATION 

ASU 09 — TMT G/M AND R/MS 

FOR 09 02 RETURN ADDRESS 

FOR 0902 RETURN ADDRESS 

2 ZEROS FOR PASS COUNTER 



SORT51 



IF IT IS DESIRED TO PRINT ASSIGNMENT PROGRAM 
GOTTEN TO ONLY BY MANUAL TRANSFER 



ADD OF ASSIGNMENT TITLE 
CHANGE PRINT ADO 

CONTROL CARD 
TO PRINT AREA 
TO PRINT SET UP 

FIRST PASS 

RWD AND IOF TAPES 
SET FOR 3 REPEATS 

REWIND ALL SORTING TAPES 
IOF ALL SORTING TAPES 



ARE THERE 4 TAPE PAIRS FOR SORTING 

YES 

NO 



LNG 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 



SYMBOLIC 


INCR 






ACTUAL 


S 


LOC 




OP 


ADDR 




ASU 


LOC 


OF 


ADDR 


ADDR H 


.13 





TMT 


5.32.0 




01 


03099 


9 


2234 


22T4 


• 14 





TR 


10.03.0 




00 


03104 


1 


3039 


3039 


• 15 





NOP 


10.19.0 




00 


03109 


A 


3129 


3129 


.16, 





SEL 


0204 




00 


03114 


2 


0204 


0204 


.17 


lO 


RWD 


0002 




00 


03119 


3 


0002 


0002 


• IS 


.0 


I OF 


0000 




00 


03124 


3 


0000 


0000 


• 19 


.0 


SEL 


0204 




00 


03129 


2 


0204 


0204 


• 20 





RWW 


75.09.0 


6001 


00 


03134 


S 


12500 


S500 


• 21 





RD 


75.09.0 


6001 


00 


03139 


Y 


12500 


S500 


• 22 





TRS 


14.02.0 




00 


03144 





4644 


4644 


• 23 





TMT 


72.04,0 




09 


03149 


9 


9064 


9-W4 


• 24 





ADD 


71.04.0 




07 


03154 


G 


8975 


8ZG5 


.25 


.0 


SEL 


0902 




00 


03159 


2 


0902 


0902 


.26 


.0 


TRS 


15.03.0 




00 


03164 





4754 


4754 


.27 


.0 


TR 


10.53.0 




00 


03169 


1 


3344 


3344 


.27 


3 


RCV 


75.02.0 


5005 


oo 


03174 


u 


10004 


004 


.27 


.5 


TMT 


75.09.0 


6005 


00 


03179 


9 


12504 


S504 


• 28 


.0 


SEL 


0204 




00 


03184 


2 


0204 


0204 


• 29 


.0 


RWW 


75.09.0 


6001 


00 


03189 


S 


12500 


S500 


• 30 


.0 


RD 


75.09.0 


6001 


00 


03194 


Y 


12500 


S500 


• 31 


.0 


TRS 


14.08.0 




00 


03199 





4664 


4664 


.32 





TMT 


72.04.0 




09 


O3204 


9 


9064 


9-W4 


.33 


.0 


ADD 


71.04.0 




07 


03209 


G 


8975 


8ZG5 


.34 





SEL 


0902 




00 


03214 


2 


0902 


0902 


.35 


.0 


TRS 


15.09.0 




00 


03219 





4779 


4779 


.36. 





UNL 


11.03.5 


-004 


05 


03224 


7 


3570 


3VXO 


.37 





TR 


10.53.0 




00 


03229 


1 


3344 


3344 


.36 


>0 


SEL 


0204 




00 


03234 


2 


0204 


0204 


.39. 





RWW 


75.09.0 


6001 


00 


03239 


S 


12500 


S500 


.40 





SEL 


0201 




00 


03244 


2 


0201 


0201 


.41. 





WR 


75. 16.0 


6001 


00 


03249 


R 


15000 


vooo 


• 42 





TRS 


14.14.0 




00 


03254 





4684 


4684 


• 42 


2 


LOD 


75.16.0 


6010 


13 


03259 


8 


15009 


V& 9 


• 42 


.3 


ADO 


71. 60,0 




13 


03264 


G 


9022 


9&S2 


• 42 


• 4 


ADM 


73.02.0 




13 


03269 


6 


9276 


9BX6 


.43 


>0 


SEL 


0204 




00 


03274 


2 


0204 


0204 


.44 


.0 


TRS 


13.02.0 




00 


03279 





4329 


4329 


.45 





TMT 


72.04.0 




09 


03284 


9 


9064 


9-W4 


.45 


1 


ADD 


71.04,0 




07 


03289 


G 


8975 


8ZG5 


.45. 


5 


TRA 


10.46.1 




00 


03294 


I 


3304 


3304 


• 46 





TR 


10.53.0 




00 


03299 


1 


3344 


3344 


• 46. 


1 


SEL 


0901 




00 


03304 


2 


0901 


0901 


• 46. 


2 


TRS 


25.02.0 




00 


03309 





6889 


6889 


• 46 


>3 


SEL 


09 04 




00 


03314 


2 


0904 


0904 


• 46 


4 


TRS 


25.04.0 




00 


03319 





6899 


6899 


• 46 


5 


SEL 


0905 




00 


03324 


2 


0905 


0905 


.46 


6 


TRS 


25.06.0 




00 


03329 





6909 


6909 


.47 





SEL 


0902 




00 


03334 


2 


0902 


0902 


.48 





TRS 


15.15.0 




00 


03339 





4804 


4804 


• 50 





















• 51 





















• 53 





LOD 


75.09.0 


6010 


13 


03344 


8 


12509 


SE 9 


• 54 


.0 


ADO 


71.60.0 




13 


03349 


G 


9022 


96S2 


• 54 


5 


ADM 


73.03.7 




13 


03354 


6 


93 09 


9C 9 


• 55 


.0 


















• 56 





















.57 





NOP 


11.02.0 




00 


03359 


A 


3559 


3559 


.58 





SET 


0000 




00 


03364 


B 


0000 


0000 


.59. 





LOD 


75.09.0 




00 


03369 


8 


12499 


S499 


.60 





UNL 


73.04.0 




00 


03374 


7 


9310 


9310 


.62. 


5 


NOP 


10.84.0 




00 


03379 


A 


3459 


3459 


• 63 





SET 


0000 




00 


03384 


B 


0000 


0000 



DATA OR DESCRIPTION 



A 6 

SWITCH #1 - TR IF MASTER ON 200 



MASTER FILE 

FIRST RECORD INTO B 

NO RECORDS ON MASTER 
PLACE GM 6 5 RMS 
INC RECORD COUNTER 

0902 RETURN #1 

TO HASH TOTAL 

PLACE FIRST RECORD INTO A 

MASTER FILE 

SECOND RECORD INTO B 

ONE RECORD ON MASTER 
PLACE GM AND RMS 
INC RECORD COUNTER 

0902 RETURN #2 

SWITCH 2 TO NOP 

TO HASH TOTAL 

MASTER FILE 

B AREA 

OUTPUT TAPE 

C AREA 

OUTPUT OVERFLOW CONDITION 

MIDDLE PASS HASH TOTAL INCREMENT 



MASTER FILE 
TEST MAJOR EOF 
PLACE GM AND RMS 
INCREASE RECORD COUNT 



CHECK INDICATORS 



0902 RETURN #3 

HASH TOTAL 

LOD FIRST 10 CHARACTERS OF RECORD 

DEZONE 

INCREASE HASH TOTAL 

SETTING UP CONTROL WORD 

SWITCH #5-TR IF ONE CONTROL FIELD 

1ST CONTROL FIELD 

INC BY PI 

INC BY LI 

SW »6 

2ND CONTROL FIELD 



SORT51 



c 


LNG SYMBOLIC I NCR 






AC 


TUAL 


S 


DATA OR DESCRIPTION 


L 


LOC 


OP 


ADDR 


ASU 


LOC 


OP 


ADDR 


ADDR N 






10,64>0 


LOO 


75.09.0 


00 


03389 


8 


12499 


S499 


INC BY P2 




10.65.0 


UNL 


73.04.0 


00 


03394 


7 


9310 


9310 


INC BY LI 6 L2 




10.67.5 


NOP 


10.84.0 


00 


03399 


A 


3459 


3459 


SW #7 


1 


10.68.0 


SET 


0000 


00 


03404 


8 


0000 


0000 


3RD CONTROL FIELD 




10.69.0 


LOO 


75.09.0 


00 


03409 


8 


12499 


S499 


INC BY P3 




10.70.0 


UNL 


73.04.0 


00 


03414 


7 


9310 


9310 


INC BY L16L26L3 




10.72.5 


NOP 


10.84.0 


00 


03419 


A 


3459 


3459 


SW #8 


1 


10.73.0 


SET 


0000 


00 


03424 


B 


oooo 


0000 


4TH CONTROL FIELD 




10. 7*. 


LOD 


75.09.0 


00 


03429 


8 


12499 


S499 


INC BY P4 




10.75.0 


UNL 


73.04.0 


00 


03434 


7 


9310 


9310 


INC BY L1&L2&L3&L4 




10,77.5 


NOP 


10.84.0 


00 


03439 


A 


3459 


3459 


SW #9 


1 


10.78.0 


SET 


0000 


00 


03444 


B 


OOOO 


0000 


5TH CONTROL FIELD 




10.79.0 


LOD 


75.09.0 


00 


03449 


8 


12499 


S499 


INC BY P5 




10.80.0 


UNL 


73.04,0 


00 


03454 


7 


9310 


9310 


INC BY L1&L2&L3&L4&L5 


7 


10.83.0 
















SAVING BEGINING OF RECORD 




10.84.0 


TR 


11.02.0 


00 


03459 


1 


3559 


3559 


SAVING SW #1 


1 


10.84.5 


SET 


0000 


00 


03464 


B 


0000 


0000 


GET NON-CONTROL WORD INFORMATION 




10.85.0 


LOD 


75.09.0 


00 


03469 


8 


12499 


S499 


WITHIN POSITIONS TO BE 




10.85.5 


UNL 


75.09.0 


00 


03474 


7 


12499 


S499 


OCCUPIED WITH THE CONTROL 




10.86.0 


TR 


11.02.0 


00 


03479 


1 


3559 


3559 


SAVING SW #2 


1 


10.86.5 


SET 


0000 


00 


03484 


B 


0000 


0000 


IN SPACES VACATED BY 




10.87.0 


LOD 


75.09.0 


oo 


03489 


8 


12499 


S499 


CONTROL FIELDS OUTSIDE 




10.88.0 


UNL 


75.09.0 


00 


03494 


7 


12499 


S499 


THE CONTROL WORD AREA 




10.89.0 


TR 


11.02.0 


00 


03499 


1 


3559 


3559 


SAVING SW #3 


1 


10.90.0 


SET 


0000 


00 


03504 


B 


0000 


0000 






10.91.0 


LOD 


75.09.0 


00 


03509 


8 


12499 


S499 






10.92.0 


UNL 


75.09.0 


00 


03514 


7 


12499 


S499 






10.93.0 


TR 


11.02.0 


00 


03519 


1 


3559 


3559 


SAVING SW #4 


1 


10.94.0 


SET 


0000 


00 


03524 


B 


0000 


0000 






10.95.0 


LOD 


75.09.0 


00 


03529 


8 


12499 


S499 






10.96.0 


UNL 


75.09.0 


00 


03534 


7 


12499 


S499 






10.97.0 


TR 


11.02.0 


00 


03539 


1 


3559 


3559 


SAVING SW #5 


1 


10.97.5 


SET 


0000 


00 


03544 


B 


0000 


0000 






10.98.0 


LOD 


75.09.0 


00 


03549 


8 


12499 


S499 






10,98.5 


UNL 


75.09.0 


00 


03554 


7 


12499 


S499 




7 


11.00.0 


















7 


11.01.0 
















DETERMING LOW RECORD 


7 


11.01.5 


















1 


11.02.0 


SET 


0000 


00 


03559 


B 


0000 


0000 


INC TO LENGTH OF CONTROL WORD 




11.02.5 


LOD 


73.04.0 


00 


03564 


8 


9310 


9310 


GET CONTROL WORD 




11.03.0 


UNL 


75.09.0 


00 


03569 


7 


12499 


S499 


PLACE IN BEGINNING OF RECORD 




11.03.5 


TR 


10.27.3 


00 


03574 


1 


3174 


3174 


SWITCH #2 




11.03.6 


TR 


11.51,5 


00 


03579 


1 


3804 


3804 


SW #2 A 




11.04.0 


CMP 


75.16.0 


00 


03584 


4 


14999 


U999 


CHECK IF LOWER THAN LAST RECORD WRITTEN 




11.05.0 


TRH 


11.52.0 


00 


03589 


K 


3809 


3809 


NO 




11.05.5 


TRE 


11.52.0 


00 


03594 


L 


3809 


3809 


NO 




11.06.0 


NOP 


11.23.0 


00 


03599 


A 


3674 


3674 


SWITCH #10 


7 


11.06.3 


















7 


11.06.5 
















SINGLE STEP-DOWN ROUTINE 




11.07.0 


UNL 


11.06.0 -004 


01 


03604 


7 


3595 


35Z5 


SWITCH #10 TO TR 




11.08.0 


UNL 


13.10.0 -004 


05 


03609 


7 


4395 


4TZ5 


SWITCH #12 TO NOP 




11.09.0 


ADD 


71.04.0 


06 


03614 


G 


8975 


8ZP5 


INC TAPE CHANGE COUNTER 




11.10.0 


RCV 


75.26.0 6-005 


00 


03619 


U 


17504 


X504 


PLACE B INTO D 




11.11.0 


TMT 


75.09,0 6005 


00 


03624 


9 


12504 


S504 


X 


1 


11.12.0 


SEL 


0204 


oo 


03629 


2 


02 04 


0204 


MASTER FILE 




11.13.0 


RWW 


75.09.0 &001 


00 


03634 


S 


12500 


S500 


READ NEXT RECORD INTO B 




11.14.0 


RD 


75.09.0 6001 


oo 


03639 


Y 


12500 


S500 






11.15.0 


TRS 


13.02.0 


00 


03644 





4329 


4329 


MAJOR EOF 




11.16.0 


TMT 


72.04.0 


09 


03649 


9 


90 64 


9-W4 


PLACE GM AND RM 




11.17.0 


ADD 


71.04,0 


07 


03654 


S 


8975 


8ZG5 


INC RECORD COUNTER 


1 


11.18.0 


SEL 


0902 


00 


03659 


2 


0902 


0902 






11.19.0 


TRS 


15.28.0 


00 


03664 





4849 


4849 


0902 RETURN #4 



S0RT51 



LNG 



SYMBOLIC 
LOC OP ADDR 



I NCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



11.20 
11.21 

11.22 
11.23 
11.24 
11.25 
11.26 
11.27 
11.27 
11.27 
11.27 
11.28 
11.29 
11.30 
11.31 
11.32 
11.37 
11.38 
11.39 
11.40 
11.41 
11.42 
11.43 
11.45 
11.46 
11.47 
11.48 
11.48 
11.49 
11.50 
11.51 
11.51 
11.52 
11.53 
11.54 
11.55 
11.56 
11.56 
11.57 
11.58 
11.59 
11.60 
11.61 
11.62 
12.00 
12.01 
12.01 
12.01 
12.01 
12.01 
12.02 
12.03 
12.04 
12.05 
12.06 
12.06 
12.06 
12.07 
12.07 
12.07 
12.07 
12.07 



TR 10.53.0 



00 03669 1 3344 3344 



UNL 
UNL 
SEL 
WR 
TRS 
2 LOD 
ADD 
ADM 
SEL 
TRS 
SUB 
UNL 
UNL 
CMP 
TRH 
RCV 
TMT 
RCV 
TMT 
TR 
RCV 
TMT 
RCV 
TMT 
RAD 
TR 



11.06.0 
13. 10. 

0201 
75.02.0 
14.14,0 
75.02.0 
71.60,0 
73.02,0 

0902 
15.34.0 
71.08.0 
10.40.0 
11.25.0 
75.26.0 
11.45.0 
75. 16.0 
75.09.0 
75.02.0 
75.26.0 
11.48.5 
75.02.0 
75.09.0 
75.16.0 
75.26.0 
71.09.0 
10.38.0 



UNL 
CMP 
TRH 
TRE 
RCV 
TMT 
UNL 
TR 
RCV 
TMT 
RCV 
TMT 
TR 



11.03.6 
75.02.0 
11.58.0 
11.58.0 
75.16.0 
75.09.0 
13.27.0 
10.38.0 
75.16.0 
75.02.0 
75.02.0 
75.09.0 
10.38.0 



-004 05 

-004 01 

00 

6001 00 

00 

6010 13 

13 

13 

00 

00 

03 

03 

03 

00 

00 

0005 00 

6005 00 

6005 00 

6005 00 

00 

6005 00 

6005 00 

6005 00 

6005 00 

02 

00 



-004 05 

00 

00 

00 

6005 00 

6005 00 

-004 05 

00 

6005 00 

6005 00 

6005 00 

6005 00 



UNL 

UNL 

UNL 

SPR 

SEL 

BSP 

RD 

SEL 

TRS 

RAD 

TR 

SEL 

WR 

SEL 

SUB 



0500 
70.04.0 6001 

0902 
71.57.0 
8 TRS 12.08.0 



03674 
03679 
03684 
03689 
03694 
03699 
03704 
03709 
03714 
03719 
03724 
03729 
03734 
03739 
03744 
03749 
03754 
03759 
03764 
03769 
03774 
03779 
03784 
03789 
03794 
03799 



00 



12.02.0 
70.06.0 
12.06.7 
70.05.0 

0204 

0004 
75.09.C 6001 

0902 
12.07.0 
71.09.0 



3595 
4395 
0201 
10000 
4684 

8 10009 
G 9022 

92 76 
0902 
4874 
8983 
3244 
3684 
17499 
3774 
U 15004 

9 12504 
U 10004 
9 17504 

3794 
U 10004 
9 12504 
U 15004 
17504 
8989 
3234 



03804 
03809 
03814 
03819 
03824 
03829 
03834 
03839 
03844 
03849 
03854 
03859 
03864 



03869 
03874 
03879 
03884 
03889 
03894 
03899 
03904 
03909 
03914 
03919 
03924 
03929 
03934 
03939 
3944 



3VZ5 
43Z5 
0201 

000 
4684 

6 9 
96S2 
9BX6 
0902 
4874 
89H3 
32D4 
36H4 
X499 
3774 
V004 
S504 

004 
X504 
3794 

004 
S504 
V004 
X504 
89Q9 
3234 



7 3575 
4 9999 
K 3844 
L 3844 
U 15004 
9 12504 
7 4535 
1 3234 
U 15004 
9 10004 
U 10004 
9 12504 
1 3234 



3889 
8202 
3919 
8188 
0204 
0004 
12500 
0902 
3924 
8989 



3VX5 
9999 
3844 
3844 
V004 
S504 
4VT5 
3234 
V004 
004 
004 
S504 
3234 



3Y89 
8S02 
3RJ9 
8/H8 
0204 
0004 
S500 
0902 
3924 
89Q9 



0500 0500 
8161 8161 
0902 0902 
9018 90J8 
3949 3949 



DATA OR DESCRIPTION 



TO HASH TOTAL 

DOUBLE STEP-DOWN ROUTINE 

SWITCH 10 TO NOP 

SWITCH 12 TO TR 

OUTPUT TAPE 

WRITE RECORD IN A 

OVERFLOW CONDITION 

MIDDLE PASS HASH TOTAL INCREMENT 



0902 RETURN #5 
SWITCH OUTPUT TAPES 



CMP 8 TO D 

PLACE B INTO C 

X 

PLACE D INTO A 

X 

PLACE B INTO A 

X 

PLACE D INTO C 

TO SET ASU INDICATOR TO 6 
TO MAJOR CYCLE 

IF B IS HIGHER OR EQUAL TO C 

SET SW #2A TO NOP 

CMP B TO A 

X 

X 

PLACE B INTO C 

SET TRZ TO NOP. MASTERFILE NOT IN SEQUENCE 

TO MAJOR CYCLE 

PLACE A INTO C 

X 

PLACE B INTO A 

X 

TO MAJOR CYCLE 

0902 ERROR CORRECTION FOR READING 

CORRECT INPUT TAPE 

SET UP ERROR MESSAGE #1 

RECORD NUMBER TO MESSAGE 
MASTER F.ILE 

READ INTO B 



RESET COUNTER 

TO BE SET BY PROGRAM 

MESSAGE #1 

DECREASE ERROR CTR 
TURN OFF 0902 INDICATOR 



S0RT51 



LNG 



SYMBOLIC 
LOC OP ADDR 



I NCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



DATA OR DESCRIPTION 



SORT51 



12.08 
12.09 
12.13 
12.15 
12.30 
12.31 
12.31 
12.32 
12.32 
12.32 
12.32 
12.33 
12.34 
12.35 
12.36 
12.37 
12.38 
12.39 
12.40 
12.40 
12.40 
12.40 
12.40 
12.41 
12.42 
12.48 
12.48 
12.49 
12.50 
12.51 
12.52 
12.52 
12.53 
12.54 
12.55 
12.57 
12.60 
12.61 
12.63 
12.64 
12.66 
12.69 
12.70 
12.74 
12.75 
12.76 
12.77 
12.77 
12.78 
12.78 
12.79 
12.81 
12.81 
12.81 
12.81 
12.81 
12.82 
12.82 
12.83 
12.83 
12.83 
12.84 



TRZ 
TR 
RAD 
TR 



UNL 

UNL 

SEL 

TRS 

UNL 

SEL 

BSP 

WR 

SEL 

TRS 

RAD 

TR 

SEL 

WR 

SEL 

sua 



8 TRS 



TRZ 

TR 
HLT 
RAD 
TR 



NOP 

SEL 

TRS 

SEL 

SET 

LOD 

UNL 

WR 

TR 

SEL 

WRE 

SEL 

WR 

LOD 

SUB 

SUB 

UNL 

TR 

UNL 

UNL 

RAO 

UNL 

SEL 

TRS 

SEL 

TRS 

TR 

TR 
RAD 
RAD 
UNL 



12.13.0 
12.02.0 
71.09.0 
12.52.0 



12.39.0 
12.33.0 

0901 
25.02.0 
70.10.0 

0201 

0004 
75.16.0 

0902 
12.40.0 
71.09.0 

0500 
70.09.0 

0902 
71.57.0 
12.41,0 
12.48.0 
12.33.0 

0007 
71.09.0 
12.33.0 



02 
00 
02 
00 



10 
03 
00 
00 
03 
CO 
00 

&001 00 
00 
00 
02 
00 
00 

&001 00 
00 
02 
00 
02 
00 
00 
02 
00 



12.83.0 

0914 
12.64.0 

0500 

0000 
75.09.0 
73.15.0 
73.15.0 
12.70.0 

0400 
75.09.0 

0500 
73.70.0 
70.18.0 
71.04.0 
71.04.0 
70.18.0 
12.79.0 
36.07.5 
23.14.5 
71.09.0 
12.82.0 

0901 
12.81.3 

0902 
12.82.0 



12.52.4 
71.04,0 
71.03.0 
12.84.6 



00 
00 
00 

oo 
oo 

00 
00 

&001 00 
00 
00 
00 
00 

&001 00 
09 
09 
07 
09 
00 

-004 01 

-004 01 
02 
12 
00 
00 
00 
00 
00 

00 

01 
04 
04 



03949 N 3959 39N9 

03954 1 3889 3889 

03959 H 8989 89Q9 

03964 1 4079 4079 



03969 

03974 

03979 

03984 

03989 

03994 

03999 

04004 

04009 

04014 

04019 

04024 

04029 

04C34 

04039 

04044 

04049 

04054 N 

04059 1 

04064 J 

04069 H 

04074 1 



04079 A 

04084 2 

04089 

04094 2 

04099 B 

04104 8 

04109 

04114 

04119 

04124 

04129 

04134 

04139 

0414* 

04149 

04154 

04159 

04164 

04169 

04174 

04179 H 

04184 7 

04189 

04194 

04199 

04204 

04209 



4024 
3994 
0901 
6889 
8235 
0201 
0004 
15000 
0902 
4029 
8989 

0500 
8205 
0902 
9018 
4054 
4064 
3994 
0007 
8989 
3994 



4214 
0914 
4124 
0500 
0000 

12499 
9618 
9619 
4139 
0400 

12499 
0500 
9831 
8298 
8975 
8975 
8298 
4179 
7975 
6395 
8989 
4209 
0901 
4199 
0902 
4209 



4-K4 
3914 
0901 
6889 
82C5 
0201 
0004 
VOOO 
0902 
4029 
89Q9 

0500 
8205 
0902 
90J8 
4054 
4004 
3994 
0007 
8909 
3994 



4214 
0914 
4124 
0500 
0000 
S499 
9618 
9619 
4139 
0400 
S499 
0500 
9831 
8KZ8 
8RX5 
8ZG5 
BKZ8 
4179 
79X5 
63Z5 
89Q9 
4B09 
0901 
4199 
0902 
4209 



04214 1 4084 4084 

04219 H 8975 89X5 

04224 H 8974 8Z74 

04229 7 4239 4S39 



NEXT TRY 
RESET COUNTER 



0902 ERROR CORRECTION FOR WRITING 
SET CORRECT OUTPUT TAPE 

SET UP ERROR MESS #2 



RESET COUNTER 

TO BE SET 5Y PROGRAM 

MESSAGE #2 

DECREASE ERROR COUNTER 
TURN OFF 0902 INDICATOR 

NEXT TRY 

REPEATED TAPE WRITE ERRORS 

RESET ERROR COUNTER 



30 ERRORS DUMP RECORD 

SET TO TR WHEN 4 TAPE PAIRS 

PRINTER IS AVAILABLE 



ERROR IN READING 
CONTROL WORD 

RECORD IN C 

MESS #25 

SET PREVIOUS RECORD COUNT 

DECREASE BY 1 

DEC PRESENT RECORD COUNT 

REPLACE RECORD COUNT 

HASH TOTAL CHECK SW— SET TO NOP AFTER FIRST PASS 

TO ELIMINATE HASH TOTAL CHECK 

ELIMINATE HASH TOTAL CHECK AT END OF PASS 

RESET ERROR COUNTER 



TO BE SET BY PROGRAM 
RETURN TO PREVIOUS PASS 
NOP AFTER FIRST PASS 
GET A 1 
GET A ZERO 



c 


LNG SYMBOLIC 


INCR 






AC 


TUAL 


S 


DATA OR DESCRIPTION 


L 


LOC 


OP 


AOOR 




ASU 


LOC 


OP 


AODR 


ADDR N 






12.84.3 


RAD 


71.13.0 




02 


04234 


H 


9005 


90-5 


SET FOR 3 REPEATS 


1 


12.84.6 


SEL 


0200 




00 


04239 


2 


0200 


0200 




1 


12.85.0 


IOF 


0000 




00 


04244 


3 


0000 


0000 




1 


12.85.3 


RWD 


0002 




00 


04249 


3 


0002 


0002 






12.85.6 


ADM 


12.84.6 




01 


04254 


6 


4239 


42T9 






12.86.0 


NTR 


12.84.6 




02 


04259 


X 


4239 


42L9 






12.86.3 


NOP 


12.87.3 




00 


04264 


A 


4284 


4284 






12.86.6 


5GN 


12.86.3 


-004 


03 


04269 


T 


4260 


42F0 






12.86.8 


LOD 


5.32.0 




04 


04274 


8 


2234 


2S34 


GET A 6 




12.87.0 


TR 


12.84.0 




00 


04279 


1 


4229 


4229 






12.87.3 


ADM 


12.86.3 


-004 


03 


04284 


6 


4260 


42F0 






12.87.6 


RCV 


12.86.0 




00 


04289 


U 


4299 


4299 


GET CHECK POINT TAPE ADDRE'SS 




12.87.8 


TMT 


25.12.5 




01 


04294 


9 


7039 


70T9 




1 


12.88.0 


SEL 


02 00 




00 


04299 


2 


0200 


0200 


CHECK PT TAPE 


1 


12.88.3 


BSP 


0004 




00 


043 04 


3 


0004 


0004 




1 


12.88.6 


BSP 


0004 




00 


04309 


3 


0004 


0004 




1 


12.88.6 


SEL 


0500 




00 


04314 


2 


0500 


0500 






12.90.0 


WR 


73.84,0 


-020 


00 


04319 


R 


9928 


9928 


MESSAGE * 28 




12.90.3 


TR 


25,11,0 




00 


04324 


1 


7019 


7019 




7 


13.00.0 




















7 


13.01.0 


















MAJOR EOF PROCEDURE 


1 


13.02.0 


RWD 


0002 




00 


04329 


3 


0002 


0002 


RWD & IOF MASTER FILE 


1 


13.03.0 


IOF 


0000 




00 


04334 


3 


0000 


0000 


X 


1 


13.03.2 


SEL 


0902 




00 


04339 


2 


0902 


0902 






13.03.4 


TRS 


16,12,0 




00 


04344 





4999 


4999 






13.04.0 


UNL 


13.05.0 




03 


04349 


7 


4354 


43E4 




1 


13.05.0 


SEL 


0201 




00 


04354 


2 


0201 


0201 


OUTPUT TAPE 




13.06.0 


WR 


75.02.0 


&001 


00 


04359 


R 


10000 


000 


WR RECORD IN A 




13.07.0 


TRS 


14.14.0 




00 


04364 





4684 


4684 


OVERFLOW CONDITION 


1 


13.07,1 


SET 


0010 




00 


04369 


B 


0010 


0010 


MIDDLE PASS HASH TOTAL INCREMENT 




13.07.2 


LOO 


75.02.0 


&010 


00 


04374 


8 


10009 


009 


MIDOLE PASS HASH TOTAL INCREMENT 




13.07.3 


ADD 


71.60.0 




00 


04379 


G 


9022 


9022 


X 




13.07.4 


ADM 


73.02.0 




00 


04384 


6 


9276 


9276 


X 


1 


13.08.0 


5EL 


0902 




00 


04389 


2 


0902 


0902 






13.09.0 


TRS 


15.42.0 




00 


04394 





4899 


4899 


0902 RETURN *6 




13.10,0 


TR 


13.18.0 




00 


04399 


1 


4464 


4464 


SWITCH *12 




13.11.0 


SUB 


71.08.0 




03 


04404 


P 


8983 


89H3 


SWITCH OUTPUT TAPES 




13.12.0 


UNL 


13.14.0 




03 


04409 


7 


4419 


44A9 


X 




13.13.0 


RAD 


71.09.0 




02 


04414 


H 


8989 


8909 


RESET ERROR COUNTER 


1 


13.14.0 


SEL 


0201 




00 


04419 


2 


0201 


0201 






13.15.0 


WR 


75.26.0 


&001 


00 


04424 


R 


17500 


X500 


WRITE RECORD IND 




13.15.5 


TRS 


14.14.0 




00 


04429 





4634 


4684 


OVERFLOW CONDITION 




13.15.6 


LOD 


75.26.0 


&010 


00 


04434 


8 


17509 


X509 


MIDDLE PASS HASH TOTAL INCREMENT 




13.15.7 


AOD 


71.60.0 




00 


04439 


G 


9022 


9022 


X 




13.15.8 


ADM 


73.02.0 




00 


04444 


6 


9276 


9276 


X 


1 


13.16.0 


SEL 


0902 




00 


04449 


2 


0902 


0902 






13.17.0 


TRS 


15.50.0 




00 


04454 





4924 


4924 


0902 RETURN #7 




13.17.5 


TRA 


13.18.0 




00 


04459 


I 


4464 


4464 


TURN OFF ANY INDICATOR 


1 


13.18.0 


SEL 


0201 




00 


04464 


2 


0201 


0201 


WTM. IOFi AND RWD OUTPUT TAPES 


1 


13.19.0 


WTM 


0001 




00 


04469 


3 


0001 


0001 


X 




13.19.5 


TRA 


13.35.0 




00 


04474 


I 


4574 


4574 




1 


13.20.0 


IOF 


0000 




00 


04479 


3 


0000 


0000 


X 


1 


13.21.0 


RWO 


0002 




00 


04464 


3 


0002 


0002 


X 


1 


13.22.0 


SEL 


0203 




00 


04489 


2 


0203 


0203 


X 


1 


13.23.0 


IOF 


OOOO 




00 


04494 


3 


0000 


0000 


X 


1 


13.24.0 


WTM 


O001 




00 


04499 


3 


0001 


0001 


X 




13.24.5 


TRA 


13.37.0 




00 


04504 


I 


4589 


4589 




1 


13.25.0 


RWD 


0002 




00 


04509 


3 


0002 


0002 


X 




13.25.1 


UNL 


12.77.5 


-004 


05 


04514 


7 


4160 


4/W0 


HASH TOTAL CHECK SW TO NOP 


1 


13.25.2 


SEL 


0902 




00 


04519 


2 


0902 


0902 


TURN OFF 0902 




13.25.3 


TRS 


13.26.0 




00 


04524 





4534 


4534 


X 




13.25.4 


UNL 


12.83.0 


-004 


05 


04529 


7 


4210 


4S/0 


PREVIOUS PASS CHECK SW TO NOP 



SORT51 



C LNG 


SYMBOLIC 


I NCR 




ACTUAL S 


L 


LOC OP 


AODR 




ASU 


LOC OP 


AODR AODR N 




13.26.0 ADO 


71.03.0 




06 


04534 G 


8974 8ZP4 




13.27.0 TRZ 


14.24.0 




06 


04539 N 


4734 4XL4 




13.28.0 TR 


23.38.0 




00 


04544 1 


6579 6579 




13.31.0 NOP 


18.03.0 




00 


04549 A 


5014 5014 




13.32.0 WR 


70.25.0 




00 


04554 R 


8374 8374 




13.33.0 HLT 


0008 




00 


04559 J 


0008 0008 




13.33.5 UNL 


13.31.0 


-004 


01 


04564 7 


4545 45U5 




13.34.0 TR 


18.03.0 




00 


04569 1 


501* 5014 




13.35.0 BSP 


004 




00 


04574 3 


0004 0004 




13.35.1 TRS 


13.39.0 




00 


04579 


4604 4604 




13.36.0 TR 


13.19.0 




00 


04584 1 


4469 4469 




13.37.0 BSP 


0004 




00 


04589 3 


0004 0004 




13.37.1 TRS 


13.40.0 




00 


04594 


4624 4624 




13.38.0 TR 


13.24.0 




00 


04599 1 


4499 4499 




13.39.0 SEL 


0902 




00 


04604 2 


0902 0902 




13.39.1 TRS 


13.18.0 




00 


04609 


4464 4464 




13.39.2 SEL 


0201 




00 


04614 2 


0201 0201 




13.39.4 TR 


13.21.0 




00 


04619 1 


4484 4484 




13.40.0 SEL 


0902 




00 


04624 2 


0902 0902 




13.40.1 TRS 


13.22.0 




00 


04629 


4489 4489 




13.40.2 SEL 


0203 




00 


04634 2 


02C3 0203 




13.40.4 TR 


13.25.0 




00 


04639 1 


4509 4509 




14.00.0 














14.01.0 














14.02.0 SEL 


0500 




00 


04644 2 


0500 0500 




14.03.0 WR 


70.69.0 


&001 


00 


04649 R 


8676 8676 




14.04.0 HLT 


0009 




00 


04654 J 


0009 0009 




14.05.0 TR 


10.03.0 




00 


04659 1 


3039 3039 




14.06.0 














14.07.0 














14.08.0 SEL 


0500 




00 


04664 2 


0500 0500 




14.09.0 WR 


70.13.0 


&001 


00 


04669 R 


8238 8238 




14.10.0 HLT 


0010 




00 


04674 J 


0010 0010 




14.11.0 TR 


8.02.0 




00 


04679 1 


2874 2874 




14.12.0 














14.13.0 














14.14.0 UNL 


70.30.0 




03 


04684 7 


8425 84B5 




14.14.6 RWD 


0002 




00 


04689 3 


0002 0002 




14.15.0 SEL 


500 




00 


04694 2 


0500 0500 




14.16.0 WR 


70.29.0 




00 


04699 R 


8402 8402 


1 


14.17.0 HLT 


0011 




00 


04704 J 


0011 0011 




14.18.0 UNL 


11.03.5 


-004 


01 


04709 7 


3570 35X0 




14.19.0 UNL 


11.03.6 


-004 


01 


04714 7 


3575 35X5 




14.19.5 UNL 


11.23.0 


-004 


05 


04719 7 


3670 3WX0 




14.20.0 UNL 


13.10,0 


-004 


01 


04724 7 


4395 43Z5 




14.21.0 TR 


8.02.0 




00 


04729 1 


2874 2874 


7 


14.22.0 












7 


14.23.0 












1 


14.24.0 SEL 


0500 




00 


04734 2 


0500 0500 




14.25.0 WR 


70.73.0 


&0O1 


00 


04739 R 


8703 8703 


1 


14.26.0 HLT 


0012 




00 


04744 J 


0012 0012 




14.27.0 TR 


28.04.0 




00 


04749 1 


7314 7314 


7 


15.00.0 












7 


15.01.0 












7 


15.02.0 














15.03.0 LOD 


15.06.0 




10 


04754 8 


4769 4P09 




15.04.0 LOD 


15.07.0 




12 


04759 8 


4774 4G74 




15.05.0 TR 


12.01.5 




oo 


04764 1 


3879 3879 




15.06.0 NOP 


10.53.0 




00 


04769 A 


3344 3344 




15.07.0 NOP 


10.19.0 




00 


04774 A 


3129 3129 


7 


15.08.0 














15.09.0 LOD 


15.12.0 




10 


04779 8 


4794 4PR4 



DATA OR DESCRIPTION 



TEST TAPE SWITCH COUNTER 

MASTER FILE IN SEQUENCE 

TO END OF PASS MESSAGE 

TR IF MASTER IS ON 0204 AND AFTER FIRST PASS 

WRITE MESSAGE #6 

TO REMOVE MASTER FILE IF ON 0200 

TURN OFF REMOVE MASTER FILE STOP SW 

TO NEXT PASS 



SORT51 



NO RECORDS ON MASTER 

MESSAGE #14 

MASTER FILE HAS NO RECORDS 



ONE RECORD ON MASTER 

MESSAGE #3 

MASTER FILE HAS ONLY ONE RECORD 



OVERFLOW ON OUTPUT TAPE 



MESSAGE #7 

EOF ON OUTPUT TAPE 

SW 2 TO TR 

SW 2A TO TR 

SW 10 TO NOP 

SW 12 TO TR 

INTO SETUP PROCEDDURE 

MASTER FILE IN CORRECT SEQUENCE 

MESSAGE #15 

ORIGINAL MASTER FILE IN CORRECT SEQUENCE 

TO OPTIONAL DUPLICATE CHECKING IN FINAL PASS 

0902 ERROR RETURN SET UP 
#1-RD 



#2-RD 



SYMBOLIC 
LOC OP ADOR 



I NCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



DATA OR DESCRIPTION 



S0RT51 



15i 


10. 


15 


11. 


15 


12. 


15 


13. 


15. 


14. 


15 


15. 


15 


16. 


15 


17. 


15 


18. 


15 


19. 


15 


20, 


15, 


21. 


15 


23. 


15. 


24. 


15 


25. 


15 


27. 


15 


28. 


15 


29. 


15 


30, 


15 


31. 


15 


32. 


15 


33, 


15 


34. 


15 


35. 


15 


36. 


15 


38. 


15 


39. 


15 


41. 


15 


42, 


15 


43. 


15 


44. 


15 


46. 


15 


47, 


15 


49. 


15 


50. 


15 


51. 


15 


52. 


15 


54. 


15 


55. 


16 


00. 


16 


01. 


16 


02. 


16 


03. 


16 


04. 


16 


05. 


16 


06. 


16 


.06. 


16 


07. 


16 


08, 


16 


09. 


16 


■ 10, 


16 


11, 


16 


.12, 


16 


• 13. 


16 


.13. 


16 


.15, 


16 


.16. 


18 


00, 


18 


01. 


18 


02. 


18 


03. 


18 


03. 



LOD 

TR 

NOP 

NOP 

LOD 

LOD 

TR 

NOP 

NOP 

LOD 
RAD 
TR 
NOP 

LOD 

LOD 

TR 

NOP 

NOP 

RCV 

TMT 

LOD 

TR 

NOP 

RCV 

TMT 

LOD 

TR 

NOP 

RCV 

TMT 

LOD 

TR 

NOP 



UNL 

SEL 

RWW 

RD 

TRS 

TMT 

ADD 

SEL 

TRS 

TR 

LOD 

TR 

NOP 



SEL 
TRS 



15.13.0 
12,01.5 
10.36.0 
10.28.0 

15.18,0 
15. 19,0 
12.01.5 
15.21.0 
16.03.0 

15.25.0 
71.09.0 
12,31,5 
10,53.0 

15,31,0 
15.32.0 
12.01.5 
10.53,0 
11.12.0 



75.16.0 £-005 00 

75.02.0 £-005 00 

15.39.0 10 

12.31.5 00 

11.30,0 00 

75. 16.0 &005 00 
75.02.0 £-005 00 
15.47.0 10 
12.31.5 00 
13.10.0 00 

75.16.0 £.005 00 

75.26.0 £-005 00 

15,55,0 10 

12.31.5 00 

13.17.5 00 



16.04.0 04 

0200 00 

75.09.0 &001 00 

75.09,0 £-001 00 



12 


04784 


8 


4799 


4G99 


00 


04789 


1 


3879 


3879 


00 


04794 


A 


3224 


3224 


00 


04799 


A 


3184 


3184 


10 


04804 


8 


4819 


40 J 9 


12 


04809 


8 


4824 


4H24 


00 


04814 


1 


3879 


3879 


00 


04819 


A 


'829 


4829 


00 


04824 


A 


4949 


4949 


10 


04829 


e 


4844 


40M4 


02 


04834 


H 


8989 


8909 


00 


04839 


1 


3969 


3969 


00 


04844 


A 


334t 


3344 


10 


04849 


8 


4864 


4004 


12 


C4854 


8 


4869 


4H69 


00 


04B59 


1 


3879 


3879 


00 


04864 


A 


334*. 


3344 


00 


04869 


A 


3629 


3629 



13.02.0 
72.04.0 
71,04.0 
0902 
12.01.5 
15.21.0 
16.13,5 
12.31.5 
13.04.0 



0913 
18.50.0 



00 
09 
07 
00 
00 
00 
10 
00 
00 



00 
00 



04874 U 15004 VC04 
04879 9 10004 004 
04884 e 4894 40R4 
04889 1 3969 3969 
04894 A 3724 3724 

04899 U 15004 V004 
C49C4 9 1C004 004 
04909 8 4919 4RJ9 
04914 1 3969 3969 
04919 A 4399 4399 

04924 U 15004 V004 

04929 9 17504 X504 

04934 8 4944 4RM4 

04939 1 3969 3969 

04944 A 4459 4459 



04949 

04954 

04959 

04964 

04969 

04974 

04979 

04984 

04989 

04994 1 

04999 8 

050C4 1 

05009 A 



4954 

0200 
12500 
12500 
4329 
9064 
8975 
0902 
3879 
4829 
5009 
3969 
4349 



4Z54 
0200 
S500 
S500 
4329 
9-W4 
8ZG5 
0902 
3879 
4829 
5—9 
3969 
4349 



#3-RD 



#3-VvR 



#4-RD 



*5-W 

PLACE A INTO C 



#6-WR 

PLACE A INTO C 



S7-WR 

PLACE D INTO C 



ERROR ROUTINE 

RD ERROR #3-30 ERRORS 



INPUT TAPE 



05014 2 
05019 



0913 0913 
5259 5259 



WR ERROR #3 - 30 ERRORS 

SET UP FOR 2ND AND SUBSEQUENT PASSES 
EXCHANGE TAPE CHANGING CONSTANTS 
ARE THERE 4 TAPE PAIRS 
YES 



C LNG 

L 



SYMBOLIC 
LOC OP ADDR 



I NCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR M 



DATA OR DESCRIPTION 



SORT51 



18.03.2 SET 

18.03.3 LOO 
18.03.6 RCV 
18.03.8 TMT 
18.04.0 UNL 
18.05.0 LOD 
18.06.0 RCV 
18.07.0 TMT 
18.08.0 UNL 
18.09.0 
18.10.0 LOD 
18.11.0 RCV 
18.12.0 TMT 
18.13.0 UNL 
18.13.5 
18.14.0 LOD 
18.15.0 RCV 
18.16.0 TMT 
18.17.0 UNL 

18.17.2 SGN 

18.17.4 ADM 
18.19.0 
18.20.0 RAO 
18.21.0 UNL 
18.22.0 UNL 

18.22.3 UNL 

18.22.4 UNL 
18.23.6 SUB 
18.24.0 UNL 

18.24.5 UNL 
18.25.0 RAO 
18.27.0 UNL 
18.27,5 UNL 
18.28.0 UNL 
18.29.0 UNL 
18.30.0 UNL 
18.31.0 SUB 
18.32.0 UNL 

18.33.0 UNL 

18.33.1 UNL 

18.33.2 UNL 
18.34.0 ADD 
18.35.0 UNL 
18.36.0 SEL 
18.37.0 TRS 
18.38.0 SEL 
18.39.0 TRS 
18.40.0 SEL 
18.41.0 TRS 
18.42.0 TR 
18.49.5 
18.50.0 SET 
18.51.0 SET 
18.52.0 LOD 
18.53.0 LOO 
18.54.0 UNL 
18.55.0 UNL 
18.56.0 
18.57.0 LOD 
18.58.0 LOD 
18.59.0 UNL 
18.60.0 UNL 



0002 
71.08.0 
71.08.0 ■ 
71.07.0 ■ 
71.07,0 
71. 10.0 
71.10.0 • 
71.11.0 • 
71.11.0 

71.08.2 
71.08.2 ■ 
71.08.4 • 
71.08.4 

71.11.2 

71.11.2 ■ 
71.11.4 • 
71.11.4 
12.52.0 ■ 
12.52.0 ■ 

71.11.0 
20.35.0 
21.17.0 
20.04.0 
23.36.1 
71.08.0 
20.07.0 
23.36.3 
71.10.0 
20.23.0 
20.10.0 
20.33.0 
20.38.0 
21,12.0 
71,07.0 
20,16,0 
12,02,0 
70.06.0 
20.13.0 
71.07.0 
23.14.5 

0901 
25,02,0 

0904 
25,04,0 

0905 
25.06,0 
19,01.5 

0006 
002 
71.08.4 
71,07,0 
71,08,2 
71,08,4 

71.11.4 
71,10,0 
71.11.2 
71.11.4 



01 

01 

■001 00 

•001 01 

01 

01 

•001 00 

•001 01 

01 



05024 
05029 
05034 
05039 
05044 
05049 
05054 
05059 
05064 



0002 00 2 
8983 89Y3 
8982 8982 

8980 89Y0 

8981 89Y1 

8991 89Z1 
8990 8990 

8992 8922 

8993 89Z3 



01 05069 8 8985 89Y5 

-001 00 05074 U 8984 8984 

-001 01 05079 9 8986 89Y6 

01 050e4 7 8987 69Y7 



01 
-001 00 
-001 01 

01 
-004 01 
-004 01 

03 
03 
03 
03 
03 
03 
03 
03 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
-004 05 
00 
00 
00 
00 
00 
00 
00 

01 
02 
01 
02 
01 
02 



05089 8 
05094 U 
05099 9 
05104 7 
05109 T 
05114 6 



05119 H 

05124 7 

05129 

05134 

05139 

05144 

05149 

05154 

05159 

05164 

05169 

05174 

05179 

05184 

05189 

05194 

05199 

05204 

05209 

05214 

05219 

05224 

05229 

05234 

05239 

05244 

05249 

05254 



05259 B 
05264 B 
05269 8 
05274 8 
05279 7 
05284 7 



8995 89Z5 
8994 8994 

8996 89Z6 

8997 89Z7 
4075 40X5 
4075 40X5 



8993 
5839 
6089 
5634 
6554 
8983 
5649 
6564 
8991 
5759 
5664 
5829 
5899 
6049 
8981 
5694 
3889 
8202 
5679 
8981 
6395 
0901 
6889 
0904 
6899 
0905 
6909 
5319 



8913 
58C9 
60H9 
56C4 
65E4 
89H3 
56D9 
65F4 
8Z91 
5X59 
5W64 
5Y29 
5Y99 
6 49 
8Z81 
5W94 
3Y89 
8S02 
5W79 
8Z81 
6TZ5 
0901 
6889 
0904 
6899 
0905 
6909 
5319 



01 05289 8 

02 05294 8 

01 05299 7 

02 05304 7 



0006 00 6 
0002 00-2 
8987 89Y7 
8981 8901 
8985 89Y5 
8987 8907 

8997 89Z7 
8991 89R1 
8995 89Z5 
8997 89R7 



EXCHANGE INTITIAL TAPE ADDRESS 



TO PREVENT ROLLBACK ON UNREADABLE TAPE 

X 

CHANGE PROGRAM INSTRUCTIONS 

NEW INITIAL OUTPUT ADDRESS 

OUTPUT INSTRUCTIONS 

X 

X 

X 

CHANGE OUTPUT ADDRESS 

X 

X 

NEW INITIAL INPUT ADDRESS 

INPUT INSTRUCTIONS 

X 

X 

X 

X 

CHANGE INPUT ADDRESS 

FIRST RECORD INPUT 

INTO 902 ERROR ROUTINE 

TO 0902 MESSAGE 

FOR INITIAL RWD 

RESET INPUT TAPE ADDR 

HASH TOTAL CMP SWITCH TO NOP 



ROTATE 4 TAPE PAIRS 



c 


LNG SYMBOLIC 


INCR 




ACTUAL 


S 


L 


LOC 


OP 


ADDR 


ASU 


LOC 


OP 


ADDR 


ADDR N 




18,60.4 


SGN 


12.52.0 


-004 01 


05309 


T 


4075 


40X5 




18.61.0 


TR 


18.20.0 


00 


05314 


1 


5119 


5119 


7 


19.00.0 
















7 


19.01.0 


















19.01.5 


NOP 


19.22.0 


00 


05319 


A 


5474 


5474 




19.01.6 


RAD 


71.15.0 


02 


05324 


H 


9009 


90-9 




19.01.8 


UNL 


25.16.2 


-004 05 


05329 


7 


7090 


7 ZO 


1 


19.02.0 


SEL 


0205 


00 


C5334 


2 


0205 


0205 


1 


19.02.5 


WR 


0000 


01 


05339 


R 


0000 


00 


1 


19.03.0 


WR 


0000 


01 


05344 


R 


0000 


oo o 




19.03.2 


TRS 


19.09.0 


00 


05349 





5424 


5424 


1 


19.03.5 


SEL 


0901 


00 


05354 


2 


0901 


0901 




19.04.0 


TRS 


19.12.0 


00 


05359 





5454 


5454 


1 


19.04.5 


SEL 


0902 


00 


05364 


2 


0902 


0902 




19.05.0 


TRS 


19.05.7 


00 


05369 





5379 


5379 




19.05.5 


TR 


19.22.0 


00 


05374 


1 


5474 


5474 




19.05.7 


NTR 


19.06.0 


02 


05379 


X 


5394 


53R4 


1 


19.05.8 


HLT 


0017 


00 


05384 


J 


0017 


0017 




19.05.9 


RAD 


71.15.0 


02 


05389 


H 


9009 


90-9 


1 


19.06.0 


SEL 


0500 


00 


05394 


2 


0500 


0500 




19.06.5 


WR 


70.77.0 


&001 00 


05399 


R 


8773 


8773 


1 


19.07.0 


SEL 


0205 


00 


05404 


2 


0205 


0205 


1 


19.07.5 


BSP 


0004 


00 


05409 


3 


0004 


0004 


1 


19.08.0 


BSP 


0004 


00 


5*14 


3 


0004 


0004 




19.08.5 


TR 


19.02.5 


00 


05419 


1 


5339 


5339 


1 


19.09.0 


SEL 


0901 


00 


05424 


2 


0901 


0901 




19.09.5 


TRS 


19.12.0 


00 


05429 





5454 


5454 


1 


19.10.0 


SEL 


0205 


00 


05434 


2 


0205 


0205 


1 


19.10.5 


IOF 


0000 


00 


05439 


3 


0000 


0000 


1 


19.11.0 


RWD 


0002 


00 


5444 


3 


0002 


0002 




19.11.5 


TR 


19.02.5 


00 


05449 


1 


5339 


5339 


1 


19.12.0 


SEL 


0205 


00 


05454 


2 


0205 


0205 


1 


19.12.5 


BSP 


004 


00 


05459 


3 


0004 


0004 


1 


19.13.0 


BSP 


0004 


00 


05464 


3 


0004 


0004 




19.13.5 


TR 


25.02.0 


00 


5469 


1 


6889 


6889 


7 


19.20.0 
















7 


19.21.0 
















1 


19.22.0 


SET 


0000 


01 


05474 


B 


0000 


00 


1 


19.23.0 


SET 


0256 


01 


05479 


B 


0256 


02V6 


1 


19.24.0 


LNG 


0256 


00 


05484 


D 


0256 


0256 


1 


19.24.1 


SEL 


0901 


00 


05489 


2 


0901 


0901 




19.24.2 


TRS 


19.24.5 


00 


05494 





5499 


5499 


1 


19.24.5 


SET 


0011 


00 


05499 


B 


0011 


0011 




19.24.6 


UNL 


73.03.0 


00 


05504 


7 


9287 


9287 




19.24.7 


UNL 


73.03.5 


00 


05509 


7 


9298 


9298 


1 


19.24.8 


SET 


000 


00 


05514 


B 


0000 


0000 




19.25.0 


RAD 


71.04,0 


01 


05519 


H 


8975 


89X5 




19.26.0 


RAD 


71.09.0 


02 


05524 


H 


8989 


8909 




19.27.0 


RAD 


71.11.0 


03 


05529 


H 


8993 


8913 




19.28.0 


RAD 


71.10.0 


04 


05534 


H 


8991 


8Z91 


1 


19.29.0 


SET 


0001 


05 


05539 


B 


0001 


1 




19.30.0 


LOD 


72.07.0 


05 


05544 


8 


9070 


9 XO 




19.31.0 


RAD 


71.65.0 


06 


05549 


H 


9042 


9 M2 




19.31.1 


RAD 


71.65.5 


06 


05554 


H 


9048 


9 M8 




19.32.0 


RAD 


71.65.5 


07 


05559 


H 


9048 


9 D8 


1 


19.34.0 


SET 


0006 


09 


05564 


B 


0006 


0- 6 


1 


19.35.0 


SET 


0004 


10 


05569 


B 


0004 


0—4 


1 


19<36.0 


SET 


0002 


11 


05574 


B 


0002 


0-&2 




19.37.0 


LOD 


70.17.0 


&015 11 


05579 


8 


8285 


8KH5 


1 


19.38.0 


SET 


0004 


12 


05584 


B 


0004 


0&04 


1 


19.38.1 


SET 


0010 


13 


05589 


B 


0010 


0&/0 




19.39.0 


RAD 


71.65.5 


14 


05594 


H 


9048 


96M8 



DATA OR DESCRIPTION 

FOR UNREADABLE RECORD RESTART 



CHECK POINT 

TR IF CHECK PTS ARE NOT WANTED 

FOR WRITE ERROR COUNTING 

SET SW Z TO NOP 



END OF CHECK TAPE 

TO PREVIOUS CHECK POINT 



REPEATED WRITE ERROR CHECK POINT 



S0RT51 



TO PREVIOUS CHECK POINT 



GENERAL SET UP 



TURN OFF 0901 INDICATOR 
RESET HASH TOTAL WORK SPACE 



SET ACC TO L PLACES 

ASU 01-A 1 FOR SWITCH SETTING 

ASU 02-A 10 FOR ERROR COUNTING 

FOR CHANGING OUTPUT ADDRESS 

FOR INPUT ADDRESS CHANGING 

ASU 05- AN A FOR SWITCH SETTING 

ASU 06-OUTPUT TAPE CHANGE COUNTER 

ASU 06 - OUTPUT TAPE CHANGE COUNTER 

ASU 07 — RECORD COUNTER 

ASU 09-TMT GROUP AND RECORD MARK 

ASU 10-0902 ERROR ROUTINE 

ASU 11 - PASS COUNTER 

ASU 12-0902 ERROR ROUTINE 

SET FOR HASH TOTAL COMPUTATION 

ASU 14 - LAST PASS OUTPUT RECORD COUNTER 



C LNG 



SYMBOLIC 
LOC OP ADOR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADOR N 



19 
19 
19 
19 

19 
19 
19 
19 
19 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2 



.49 
.50 
.51 
.52 
.53 
.54 
.55 
.56 
.57 
.00 
.01 
.02 
.03 
.04 
.05 

• 06 
.07 
.08 
.09 
.10 
.11 
.12 
.13 
.14 
.15 
.16 
.17 

• IS 
.18 

• 19 
.20 
.21 

• 22 
.22 
.22 
.22 
.22 
.22 
.23 
.24 
.25 
.26 
.27 
.27 
.27 
.28 
.29 
.29 
.29 
.29 
.30 
.31 
.32 
.32 
.33 
.34 
.35 
.36 
.36 
.36 
.36 
.37 



TRA 19.52.0 



00 05599 I 5604 5604 



UNL 
UNL 
UNL 
UNL 
UNL 
UNL 



SEL 

RWD 

I OF 

SEL 

RWD 

IOF 

SEL 

RWD 

IOF 

SEL 

RWD 

IOF 

SEL 

RWW 

RD 

TRS 

TMT 

ADD 

SEL 

TRS 

LOD 

ADO 

ADM 

RCV 

TMT 

SEL 

RWW 

RD 

TMT 

ADD 

SEL 

TRS 

SEL 

TRS 

LOD 

ADD 

ADM 

TR 



NOP 

SEL 

RWW 

SEL 

WR 

TMT 

TRA 

TR 

TRS 



21.07.0 
22.16.0 
21.11.5 
23.02.0 
23.26.0 
22.17.0 



0200 

0002 

OOOO 

0201 

0002 

0000 

0202 

0002 

0000 

0203 

0002 

0000 

0203 

75.09.0 

75.09.0 

20.50.0 

72.04,0 

71.04.0 

0902 

24.03.0 

75.09«0 

71.05.6 

73.03.5 

75.02.0 

75.09.0 

0201 

75.09.0 

75.09.0 

72.04.0 

71.04.0 

0901 

25.02.0 

0902 

24.09.0 

75.09.0 

71.05.0 

73.03.5 

22.01.5 



31.02.5 
0201 
75.09.0 
0200 
75.16.0 
72.04.0 
20.37.0 
20.40.0 
26.02.0 



-004 05 
-004 05 
-004 01 
-004 05 
-004 01 
-004 05 



00 

oo 

00 

00 
00 
00 

00 
00 
00 
00 
00 

oo 

00 

&001 00 

6001 00 

00 

09 

07 

00 

00 

6010 13 

13 

13 

&005 00 

&005 00 

00 

&001 00 

&001 00 

09 

07 

00 

00 

00 

00 

6010 13 



13 
13 
00 



00 
00 

6001 00 
00 

6001 00 
09 
00 
00 

oo 



05604 
05609 
05614 
05619 
05624 
05629 



05634 

05639 

05644 

05649 

05654 

05659 

05664 

05669 

05674 

05679 

05684 

05689 

05694 

05699 

05704 

05709 

05714 

05719 

05724 

05729 

05734 8 

05739 G 

05744 

05749 

05754 

05759 

05764 

05769 

05774 

05779 

05784 

05789 

05794 2 

05799 

05604 8 

05809 G 

05814 6 

05819 1 



05824 
05829 
05834 
05839 
05844 
05849 
05854 
05859 
05864 



6005 6 5 
6250 6SV0 
6040 60U0 
6310 6T/0 
6470 64X0 
6255 6SV5 



0200 

0002 

0000 

0201 

0O02 

0000 

0202 

0002 

0000 

0203 

0002 

0000 

0203 

12500 

12500 

5929 

9064 

8975 

0902 

6724 

12509 

8976 

9298 

10004 

12504 

0201 

12500 

12500 

90 64 

8975 

0901 

6889 

0902 

6749 

12509 

8976 

9298 

6199 



0200 
0002 
0000 
0201 
0002 
0000 
0202 
0002 
0000 
0203 
0002 
0000 
0203 
S500 
S500 
5929 
9-W4 
8ZG5 
0902 
6724 
SE 9 
81X6 
9BZ8 
004 
S504 
0201 
S500 
S500 
9-W4 
8ZG5 
0901 
6889 
0902 
6749 
SE 9 
81X6 
9BZ8 
6199 



7374 7374 
0201 0201 

12500 S500 
0200 0200 

15000 VOOO 
9064 9-W4 
5864 5864 
5909 5909 
7219 7219 



DATA OR DESCRIPTION 

TURN OFF ANY INDICATOR 

RESETTING SWITCHES 
SWITCH #20 TO NOP 
SWITCH #21 TO NOP 
SET SW #22 TO TR 
SWITCH #24 TO NOP 
SWITCH #25 TO TR 
SET SW #21A TO NOP 

2ND AND SUB SEQUENT PASSES 

RWD AND IOF ALL TAPES 



S0RT51 



FIRST RECORD FROM 0202 OR 0203 

INTO SECTION B 

X 

SECOND TAPE HAS NO RECORDS 

GM AND RMS 

INC RECORD COUNTER 

0902 RETURN » 11 



HASH TOTAL INCREASE 

PLACE FIRST RECORD INTO A 

X 

ALTERNATE INPUT 

SECOND RECORD INTO 8 

X 

GM AND RMS 

INC RECORD COUNTER 

TO RESTART PROCEDURE 

0902 RETURN #12 

LOD 10 CHARACTERS FOR MIDDLE PASS HASH TOTAL 

INCREASE HASH TOTAL 

MAJOR CYCLE 

SW XI. SET TO TR ON LAST PASS 

INPUT TAPE 

OUTPUT TAPE 

GM AND RMS 

OVERFLOW CONDITION 



LNG 



SYMBOLIC 
LOC OP ADDR 



INCR 



ASU LOC 



ACTUAL S 
OP ADOR ADDR N 



20, 


37. 


20, 


37. 


20 • 


37. 


20. 


37. 


20i 


37. 


20, 


37. 


20, 


38. 


20, 


39. 


20, 


40. 


20, 


42. 


20, 


43. 


20, 


44. 


20, 


50. 


20. 


SI. 


20, 


52. 


20, 


53. 


20 


53. 


20, 


54. 


20 


55. 


20, 


56. 


21, 


00. 


21, 


00. 


21, 


00. 


21 


00. 


21, 


00. 


21 


00. 


21 


03. 


21 


03. 


21 


04. 


21 


05. 


21 


>06. 


21 


07. 


21 


.07. 


21 


07. 


21 


08. 


21 


08. 


21 


08. 


21 


.09. 


21 


.10. 


21 


.11. 


21 


.11. 


21 


12. 


21 


.13. 


21 


.14. 


21 


.14. 


21 


.15. 


21 


■ 15. 


21 


.15. 


21 


.16. 


21 


.16. 


21 


.16. 


21 


.17. 


21 


• 18. 


21 


• 19. 


21 


• 20. 


21 


• 21. 


21 


.25. 


21 


.26. 


21 


.27. 


21 


• 29. 


21 


• 30. 


21 


• 31. 



SEL 

TRS 

SEL 

TRS 

SEL 

TRS 

SEL 

TRS 

ADD 

SEL 

TRS 

TR 

10F 

RWD 

UNL 

UNL 

UNL 

UNL 

UNL 

TR 



LOD 
ADO 
ADM 

LOD 
NOP 
CMP 
TRH 
TRE 
NOP 



0901 
25.02.0 

904 
25.04.0 

0905 
25.06.0 

0201 
23.01.5 
71.04.0 

0902 
24.15.0 
21.00,3 

000 

0002 
20.16.0 
12.02.0 
70.06.0 
23.02.0 
22.16.0 
20. 16.0 



00 
00 
00 
00 
00 
00 
00 
00 
07 
00 
00 
00 
00 
00 
04 
04 
04 
-004 01 
-004 01 
00 



75.09.0 &010 13 
71.05.0 13 
73.03.5 13 



75.09.0 
22.02.0 
75.16.0 
22.02.0 
22.02.0 
21.16.0 



00 
00 
00 
00 
00 
00 



UNL 
UNL 
UNL 

RCV 
TMT 
ADD 
TR 
SEL 
RWW 
RD 
TRS 
TR 



21.07.0 
23.26.0 
22.17,0 
75.26.0 
75.09.0 
71.04.0 
23.05.0 
0201 
75.09.0 
75.09.0 
23.01.5 
20.36.2 



-004 01 
-004 05 

-004 01 

&005 00 

6005 00 

06 

00 

00 

&001 00 

4001 00 

00 

oo 



UNL 

UNL 

UNL 

SEL 

WR 

TRS 

SEL 

TRS 

SUB 

UNL 

UNL 

RAD 

CMP 

TRH 



21.07.0 -004 05 
23.26.0 -004 01 



22.17.0 
0200 
75.02.0 &001 00 



004 05 
00 



26.02.0 
0902 
24.27.0 
71.08.0 
20.35.0 
21.17.0 
71.09.0 
75.26.0 
21.38.0 



00 
00 
00 
03 
03 
03 
02 
00 
00 



05869 2 
05874 
05879 2 
05884 
05889 2 
05894 
05899 2 
05904 
05909 G 
05914 
05919 
05924 
05929 
05934 
05939 
5944 
5949 
05954 
05959 
05964 



0901 
6889 
09 04 
6899 
0905 
6909 
0201 
6294 
8975 
0902 
6774 
5969 
0000 
0002 
5694 
3889 
8202 
6310 
6250 
5694 



0901 
6889 
0904 
6899 
0905 
6909 
0201 
6294 
8ZG5 
0902 
6774 
5969 
0000 
0002 
5W94 
3Y89 
8S02 
63/0 
62V0 
5694 



05969 8 12509 SE 9 
05974 G 8976 81X6 
05979 6 9298 9BZ8 

05984 8 12499 S499 
05989 A 6204 6204 
05994 4 1*999 U999 
05999 K 6204 6204 
06004 L 6204 6204 
06009 A 6074 6074 



06014 7 
06019 7 
06024 7 
06029 U 
06034 9 
06039 
06044 
06049 
06054 
06059 
06064 
06069 



060 74 

06079 

06084 

06089 

06094 

06099 

06104 

06109 

06114 

06119 

06124 

06129 H 

06134 4 

06139 K 



6005 

6470 

6255 

17504 

12504 

8975 

6334 

0201 

12500 

12500 

6294 

5849 



6005 
6470 
6255 
0200 

10000 
7219 
0902 
6814 
8983 
5839 
6089 
8989 

17499 
6174 



60 5 
6UX0 
62V5 
X504 
S504 
8ZP5 
6334 
0201 
S500 
S500 
6294 
5849 



6 5 
64X0 
6SV5 
0200 
000 
7219 
0902 
6814 
89H3 
58C9 
60H9 
8909 
X499 
6174 



DATA OR DESCRIPTION 
TO RESTART PROCEDURE 

INPUT TAPE 

INCREASE RECORD COUNT 

0902 RETURN #13 



1ST TAPE ADDRESS 
1ST TAPE ADDRESS 
TO 0902 MESSAGE 
SW #24 TO TR 
SW #21 TO TR 



HASH TOTAL #3 

GET FIRST 10 CHARACTERS 

DEZONE 

INC HASH TOTAL 

GET CONTROL WORD 

SW X2 — SET TO TR ON LAST PASS 

WITH C 



SWITCH » 20 

SINGLE STEP-DOWN ROUTINE 

SWITCH # 20 TO TR 

SWITCH # 25 TO NOP 

SET SW #21A TO TR 

PLACE B INTO D 

X 

INC TAPE CHANGE COUNTER 

SW 22 SET TO NOP ON FIRST EOF 

INPUT TAPE 

NEXT RECORD INTO B 

X 

TO MAJOR CYCLE 

DOUBLE STEP DOWN ROUTINE 

SWITCH # 20 TO NOP 

SWITCH # 25 TO TR 

SET SW#21A TO NOP 

OUTPUT TAPE 

A 

OVERFLOW CONDITION 

0902 RETURN #14 

CHANGE OUTPUT TAPES 

X 

X 

TURN ON ASU PLUS INDICATOR 

WITH D 



S0RT51 



C LNG 



SYMBOLIC 
LOC OP AODR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



21 


32. 


21. 


33. 


21, 


34. 


21 


35. 


21 


36. 


21 


37. 


21 


38. 


21 


39. 


21 


40. 


21 


41. 


21 


42. 


22 


00. 


22 


01. 


22 


01. 


22 


02. 


22 


03. 


22 


04. 


22 


05. 


22 


07. 


22 


08. 


22 


09. 


22 


10. 


22 


12. 


22 


13. 


22 


14. 


22 


■ 15. 


22 


.16. 


22 


17. 


22 


20. 


22 


• 21. 


22 


22. 


22 


23. 


22 


.24. 


22 


25. 


23 


00. 


23 


.01. 


23 


.01. 


23 


01. 


23 


.01. 


23 


• 01. 


23 


02. 


23 


• 03. 


23 


• 04. 


23 


.04. 


23 


.05. 


23 


.06. 


23 


• 07. 


23 


.08. 


23 


.10. 


23 


>10. 


23 


• 11. 


23 


• 11. 


23 


• 12. 


23 


.13. 


23 


• 14. 


23 


• 14. 


23 


• 14. 


23 


• 14. 


23 


• 14. 


23 


• 14. 


23 


.14. 


23 


• 14. 



TRE 

RCV 

TMT 

RCV 

TMT 

TR 

RCV 

TMT 

RCV 

TMT 

TR 



LOD 
CMP 

TRH 
TRE 

RCV 

TMT 
TR 

RCV 
TMT 
RCV 
TMT 
NOP 
NOP 
SUB 
UNL 
UNL 
UNL 
RAD 
TR 



21.38.0 
75.16.0 
75.09.0 
75.02.0 
75.26.0 
20.33.0 
75.16.0 
75.26.0 
75.02.0 
75.09.0 
22. 16.0 



75.09.0 
75.02.0 
22.12.0 
22.12.0 



00 
6005 00 
&005 00 
&005 00 
6005 00 

00 
6005 00 
6005 00 
6005 00 
6005 00 

00 



00 
00 

oo 

00 



75.16.0 6005 00 

75.09.0 6005 00 

20.32.5 00 

75.16.0 6005 00 

75.02.0 5005 00 

75.02.0 6005 00 

75.09.0 6005 00 



RWD 
I OF 
SEL 
8 TRS 
NOP 
UNL 
UNL 
UNL 
SUB 
UNL 
UNL 
UNL 
RAD 
TR 



20.32,5 
20.33.0 
71.07.0 
20.33.0 
20.38.0 
21.12.0 
71.09.0 
20.32.5 



0002 

0000 

0902 

26.30.0 

23.12.0 



00 
00 
04 
04 

04 
04 

02 
00 



00 
00 
00 
00 
00 



23.02.0 -004 01 
22.16.0 -004 01 



CMP 

TRE 

SEL 

WR 

TR 

SET 

LOD 

NOP 

CMP 

TRE 



21.11.5 
71.07.0 
20.33.0 
20.38.0 
21.12.0 
71.09.0 
21.12.0 



70.18.0 
23.14.3 

0500 



•004 05 
04 
04 
04 
04 
02 
00 



07 
00 
00 



73.53.0 6001 00 



23.53.0 
0009 
73.03.5 
23.14.9 
73.02.0 
23.15.0 



00 
00 
00 
00 
00 
00 



06144 L 
06149 U 
06154 9 
06159 U 
06164 9 
06169 1 
06174 U 
06179 9 
06184 U 
06189 9 
06194 1 



6174 

15004 
12504 
10004 
17504 

5829 
15004 
17504 
10004 
12504 

62 54 



6174 
V004 
S504 

004 
X504 
5829 
V004 
X504 

004 
S504 
6254 



06199 8 12499 S499 
06204 4 9999 9999 
06209 K 6234 6234 
06214 L 6234 6234 

06219 U 15004 V004 
06224 9 12504 S504 
06229 1 5824 5824 



06234 U 

06239 9 

06244 

06249 

06254 

06259 

06264 

06269 

06274 

06279 

06284 

06289 



06294 

06299 

06304 

06309 

06314 

06319 

06324 

06329 

06334 

06339 

06344 

06349 

06354 H 

06359 1 



06364 
06369 
06374 
06379 
06384 
06389 
06394 
06399 
06404 
06409 



15004 

10004 

10004 

12504 

5824 

5829 

8981 

5829 

5899 

6049 

8989 

5624 



0002 
0000 
0902 
7299 
6364 
6310 
6250 
6040 
8981 
5829 
5899 
6049 
8989 
6049 



8298 
6389 
0500 
9721 
6714 
0009 
9298 
6419 
9276 
6424 



V004 
004 
004 
S504 
5824 
5829 
8Z81 
5Y29 
5Y99 
6 49 
69Q9 
5824 



0002 
0000 
0902 
7299 
6364 
63/0 
62V0 
6 UO 
8Z81 
5Y29 
5Y99 
6 49 
8909 
6049 



8SI8 
6389 
0500 
9721 
6714 
0009 
9298 
6419 
9276 
6424 



DATA OR DESCRIPTION 



PLACE B INTO C 

X 

PLACE D INTO A 

TO MAJOR CYCLE 

PLACE D INTO C 

X 

PLACE 8 INTO A 

X 

TO CHANGE INPUT TAPES 

TO STEP DOWN 

GET CTRL WORD 

INC BY C.W. LENGTH 



PLACE 8 INTO C 
X 



PLACE A INTO C 

X 

PLACE B INTO A 

X 

SW#21 TR AFTER ONE EOF 

SW #21A SET TO TR ON SINGLE STEP DOWN 
CHANGE INPUT TAPES 



ACTIVATE ASU PLUS INDICATOR 
FIRST INPUT EOF 



SWITCH # 24 

SWITCH * 24 TO TR 

SWITCH # 21 TO TR 

SET SW*22 TO NOP 

CHANGE INPUT TAPES 

X 

X 

X 

REACTIVATE ASU PLUS INDICATOR 



SORT 51 



SECOND INPUT ENO OF FILE 
SAME NUMBER OF RECORDS 



MESS #21 

HASH TOTAL COMPARISON 

TR IF RECORD WAS ELIMINATED DURING THIS PASS 



LMC 



SYMBOLIC 
LOC OP ADDR 



INCR 



ASU LOC 



ACTUAL S 

OP ADDR ADDR N 



23.1* 
23.1* 
23.15 
23.15 
23.15 
23.16 
23.17 
23.18 
23.19 
23.20 
23.2* 
23.25 
23.26 
23.27 
23.28 
23.29 
23.30 
23.31 
23.32 
23.32 
23.33 
23.3* 
23.3* 
23.35 
23.35 
23.35 
23.35 
23.36 
23.36 
23.36 
23.36 
23.36 
23.37 
23.38 
23.38 
23.38 
23.39 
23. *0 
23. *1 
23. 41 
23.41 
23.42 
23.43 
23.43 
23.43 
23.44 
23.45 
23.45 
23.46 
23.47 
23.47 
23.48 
23.49 
23.49 
23.49 
23.50 
23.50 
23.50 
23.50 
23.51 
23.52 
23.53 



8 TR 

9 UNL 

NOP 

1 UNL 
5 UNL 
SEL 
WR 
TRS 

SEL 

TRS 

SUB 

UNL 

TR 

UNL 

SEL 

WR 



TRS 
SEL 
TRS 
TRA 
SEL 
WTM 
TRA 
SEL 
WTM 
TRA 
SEL 
TRS 
SEL 
RWD 
SEL 
RWD 
RAD 



CMP 



TRH 

TR 

SPR 

ADD 

SPR 

ADD 

SPR 

SEL 

WR 

UNL 

UNL 

TR 

8SP 

TRS 

TR 

BSP 

TRS 

TR 

SEL 

TRS 

TR 

SEL 

TRS 

TR 

SEL 

WR 

HLT 



23.51.0 
73.02.0 
33.10.0 
23.16.0 
23.33.0 

0202 
75.02.0 
26.02.0 

0902 
24.34.0 
71.08.0 
23.35.0 
23.33.0 
23.28.0 

0200 
75.26.0 
26.02.0 

0902 
24.41.0 
23.33.0 

02 00 

0001 
23.45.0 

0202 

0001 
23.47.0 

0902 
23.36.1 

0200 

0002 

0201 

0002 
71.09.0 
72.15.0 
23.39.5 
28.04.0 
70.18.0 
71.04.0 
70.17.0 
71.04,0 
70.19.0 

0500 
70.17.0 
70,18.0 
70.17.0 
13.31.0 

0004 
23.49,0 
23,34,0 

0004 
23.50.0 
23.35.5 

902 
23.33.0 
23.35.0 

0902 
23.35.0 
23.36.1 



00 
00 
00 
03 
03 
00 

6001 00 
00 
00 
00 
03 
03 
00 
03 
00 

6001 00 
00 
00 
00 
00 

oo 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
06 
00 
00 
07 

11 

&016 11 
06 
06 
00 

6001 00 
07 

6015 11 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



06*14 1 

06419 7 

06*2* 

06*29 

06*34 

06*39 

6444 

06449 

06454 

06459 

06464 

06469 

06474 

06479 

06484 

06489 

06494 

06499 

06504 

06509 I 

06514 2 

06519 3 

06524 I 

06529 2 

06534 3 

06539 I 

06544 2 

06549 

06554 

06559 

06564 

06569 

06574 H 

06579 4 

06584 

06589 

06594 

06599 

06604 

06609 

0661* 

06619 

06624 

06629 

06634 

06639 

06644 

06649 

06654 1 

06659 3 

06664 

06669 

06674 

06679 

06684 

06689 

06694 

06699 



6704 
9276 
7709 
6439 
6514 
0202 

10000 
7219 
0902 
6839 
8983 
6529 
6514 
6484 
0200 

17500 
7219 
0902 
6864 
6514 
0200 
0001 
6644 
0202 
0001 
6659 
0902 
6554 
02 00 
0002 
0201 
0002 
8989 
9103 
6594 
7314 
8298 
8975 
8286 
8975 
8324 
0500 
8271 
8298 
8285 
4549 
0004 
6674 
6519 
0004 
6689 
6534 
0902 
6514 
6529 
0902 
6529 
6554 



6704 
9276 
7709 
64C9 
65A4 
0202 
000 
7219 
0902 
6839 
89H3 
65B9 
651* 
64H* 
0200 
X500 
7219 
0902 
6864 
6514 
0200 
0001 
664* 
0202 
0001 
6659 
0902 
6554 
0200 
0002 
0201 
0002 
8909 
9/-3 
6594 
7314 
8SI8 
8RG5 
8KH6 
8ZP5 
8TK4 
0500 
8271 
8SI8 
8KH5 
4549 
0004 
6674 
6519 
0004 
6689 
6534 
0902 
6514 
6529 
0902 
6529 
6554 



DATA OR DESCRIPTION 



SW X3. SET TO TR ON LAST PASS 

PROPER OUTPUT TAPE 

X 

OUTPUT TAPE 

A 

OVERFLOW CONDITION 

0902 RETURN #15 
CHANGING OUTPUT TAPES 

SWITCH # 25 

ALTERNATE OUTPUT TAPE 

D 

OVERFLOW CONDITION 

0902 RETURN #16 

TURN OFF ANY INDICATOR 

OUTPUT TAPE 



ALTERNATE OUTPUT TAPE 



TURN OFF 0902 
X 



ACTIVATE ASU PLUS INDICATOR 

HAS THERE SEEN MORE THAN 1 TAPE CHANGE 

YES 

NO TO FINAL PASS 

RECORD COUNT TO MESSAGE 
INC PASS COUNTER 
PLACE IN MESSAGE 
SET SEQUENCE COUNT 
PLACE IN MESSAGE 

MESSAGE # 4 



SORT51 



0500 00 

73.57,0 6001 00 

0013 00 



06704 2 0500 0500 
06709 R 9752 9752 
06714 J 0013 0013 



HASH TOTAL IS NOT EQUAL 

MESS #11 

MIDDLE PASS HASH TOTAL OR RECORD COUNT CHECK 



LNG 



SYMBOLIC 
LOC OP ADOR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR H 



23 


54 • 


24 


00. 


24 


01. 


24 


02. 


24 


03. 


24 


04. 


24 


05. 


24 


06. 


24 


07. 


24 


08. 


24 


09. 


24 


10. 


24 


11. 


24 


12. 


24 


13. 


24 


14. 


24 


15. 


24 


16. 


24 


17. 


24 


18. 


24 


19. 


24 


20. 


24 


21. 


24 


23. 


24 


24. 


24 


26. 


24 


27. 


24 


28. 


24 


29. 


24 


31. 


24 


32. 


24 


33. 


24 


34. 


24 


35. 


24 


36. 


24 


38. 


24 


39. 


24 


40. 


24 


41. 


24 


42. 


24 


43. 


24 


45. 


24 


46. 


25 


00. 


25 


01. 


25 


01. 


25 


02. 


25 


03. 


25 


>04t 


25 


05. 


25 


06. 


25 


07. 


25 


08. 


25 


08. 


25 


08. 


25 


08. 


25 


>08. 


25 


.08. 


25 


08. 


25 


08. 


25 


08. 


25 


>08. 



TR 25.11.0 



00 06719 1 7019 7019 



LOD 

LOD 

TR 

NOP 

NOP 

LOD 

LOD 

TR 

NOP 

NOP 

LOD 

LOD 

TR 

NOP 

NOP 

LOD 

TR 

NOP 

RCV 

TMT 

LOD 

TR 

NOP 

RCV 

TMT 

LOD 

TR 

NOP 

RCV 

TMT 

LOD 

TR 

NOP 



24.06.0 
24.07.0 
12.01.5 
20.22.1 
20.16.0 

24.12.0 
24.13.0 
12.01.3 
20.29.1 
20.23.0 

24.18.0 
24.19.0 
12.01.3 
24.21.0 
26.21.0 

24.24.0 
12.31.5 
21.00.3 

75.16.0 
75.02.0 
24.32.0 
12.31.5 
21.25.0 

75.16.0 
75.02.0 
24.39.0 
12.31.5 
23.24.0 

75.16.0 
75.26.0 
24.46.0 
12.31.5 
23.32.5 



10 
12 
00 
00 

00 

10 
12 
00 
00 
00 

10 
12 
00 
00 
00 

10 
00 
00 

6-005 00 

6005 00 

10 

00 
00 

&0O5 00 

6005 00 

10 

00 

00 

&0O5 00 

6005 00 

10 

00 

00 



RAD 

TR 

RAD 

TR 

RAD 

UNL 

SPR 

RAD 

RCV 

TMT 

SET 

SEL 

RWD 

ADM 

8 NTR 

9 SEL 



71.04.0 

25.07.0 

71.18.0 

25.07.0 

71.17.0 

73.61.0 

73.63.0 

71.04.0 

25.08.5 

25.08.5 

0004 

0200 

0002 

25.08.5 

25.08.5 

0913 



01 
00 
01 
00 
01 

5015 01 
07 
01 
00 

-001 01 
08 
00 
00 
01 
08 
00 



06724 8 
06729 8 
06734 1 
06739 A 
06744 A 

06749 8 
06754 8 
06759 1 
06764 A 
06769 A 



06774 8 
06779 8 
06784 1 
06789 A 
06794 A 



06799 8 
06804 1 

06809 A 

06814 U 
06819 9 
06824 8 
06829 1 
06834 A 

06839 U 
06844 9 
06849 8 
06854 1 
06859 A 



06864 U 
06869 9 
06874 8 
06879 1 
06884 A 



06689 H 
06894 1 
06899 H 
06904 1 
06909 H 
06914 7 
06919 5 
06924 H 
06929 U 
06934 9 
06939 B 
06944 2 
06949 3 
06954 6 
06959 X 
06964 2 



6739 
6744 
3879 
5734 
5694 

6764 
6769 
3869 
58 04 
5759 

6789 
6794 
3869 
6799 
7249 

6809 
3969 
5969 

15004 

10004 

6834 

3969 

6114 

15004 

10004 

6859 

3969 

6464 

15004 

175 04 

6884 

3969 

6509 



8975 
6914 
9011 
6914 
9010 
9793 
9828 
8975 
6944 
6943 
0004 
0200 
0002 
6944 
6944 
0913 



6PL9 
6G44 
3879 
5734 
5694 

6P04 
6669 
3869 
5804 
5759 

6P09 
6G94 
3869 
6799 

7249 

6Q-9 
3969 
5969 

V004 
004 
6QL4 
3969 
6114 

V004 
004 
6QN9 
3969 
6464 

V004 
X504 
6QQ4 
3969 
6509 



89X5 
6914 
90/1 
6914 
90/0 
97Z5 
9Y88 
89X5 
6944 
69U3 
0-04 
0200 
0002 
69U4 
6R44 
0913 



DATA OR DESCRIPTION 



RETURN ADDRESSES FOR 0902 ERRORS 

# 11 - RD 



SKIP UNLOADING TAPE ADD 
#12 - RD 



#13 - RD 



#13 - WR 



#14 - WR 
PLACE A INTO C 
X 



#15 - WR 
PLACE A INTO C 
X 



#16 - WR 



RESTART PROCEDURE 
SETUP MESSAGE 
GET A 1 

GET A 4 

GET A 5 

CHECK INDICATOR INTO MESS 

RECORD # TO MESSAGE 

GET A 1 

A ZERO 

SET FOR 3 REPEATS 

REWIND SORTING TAPES 



ARE THERE 4 TAPE PAIRS 



SORT51 



LNG 



SYMBOLIC 
LOC OP AODR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADOR H 



DATA OR DESCRIPTION 



SORT51 



25.09.0 

25.09.1 

25.09.2 

25*09.3 

25.09.4 

25.09.5 

25.09.6 

25.09.7 

25.09.8 

25.10.0 

25.11.0 

25.11.1 

25.11.2 

25.12.3 

25.12.5 

25.13.0 

25.14.0 

25.14.1 

25.14.2 

25.14.3 

25.14.4 

25.14.5 

25.14.6 

25.15.0 

25.16.0 

25.16.2 

25.26.0 

25.27.0 

25.27.1 

25.27.2 

25.27.3 

25.27.4 

25.28.0 

25.29.0 

25.30.0 

25.31.0 

25.32.0 

25.33.0 

25.34.0 

25.34.1 

25.34.2 

25.35.0 

25.36.0 

25.37.0 

25.38.0 

25.39.0 

25.40.0 

25.41.0 

25.42.0 

25.43.0 

26.00.0 

26.01.0 

26.02.0 

26.02.2 

26.03.0 

26.04.0 

26.05.0 

26.06.0 

26.20,0 

26.21.0 

26.22.0 

26.23.0 



TRS 

TR 
NOP 

UNL 
RCV 

TMT 

TR 

UNL 

SEL 

WR 

NOP 

SEL 

TRS 

SET 

SEL 

BSP 

RD 

SEL 

TRS 

SEL 

TRS 

SEL 

TRS 

SEL 

TRS 

TR 

TR 

SUB 

SEL 

WR 

SEL 

TRS 

TRZ 

TR 

ADD 

NTR 

HLT 

TR 

SEL 

BSP 

BSP 

TR 

SEL 

BSP 

TR 

RAD 

UNL 

TR 

HLT 

TR 



25.09.2 

25.09.8 

25.09.7 

25.09.2 

25.08.5 

5.32.0 

25.08.4 

25.09.2 

0500 

73.61.0 

25.42.0 

0902 

25.12.3 

0003 

0205 

0004 

0000 

0901 

25.14.3 

0904 

25.14.5 

0905 

25.15.0 

0902 

25.27.0 

25.39.0 

19.22.0 

71.57.0 

0500 

70.87.0 

0902 

25.28.0 

25.30.0 

25.36.0 

71.09.0 

25.34.0 

0014 

25.32.0 

0205 

0004 

0004 

25.14.0 

0205 

0004 

25.14.0 

71.04.0 

5.33.0 

.09.0 

1234 

25.42.0 



00 
00 
00 

-004 01 
00 
01 
00 

-004 05 
00 

6001 00 
00 
00 
00 
02 
00 

oo 

00 
00 
00 

00 

oo 
oo 

00 
00 

oo 
oo 
oo 

02 
00 
&001 00 
00 
00 
02 
00 
02 
02 
00 
00 
00 
00 
00 
00 
00 
00 

oo 

01 

-004 01 

00 

00 
00 



UNL 70.30.0 



RWD 
SEL 
WR 
HLT 

TR 



0002 
0500 



03 
00 

00 



70.29.0 &001 00 



0011 
19.22.0 



oo 

00 



06969 

06974 1 

06979 A 

06984 7 

06989 U 

06994 9 

06999 

07004 

07009 

07014 

07019 

07024 

07029 

07034 

07039 

07044 

07049 

07054 

07059 

07064 

07069 

07074 

07079 

07084 

07089 

07094 

07099 

07104 

07109 

07114 

07119 

07124 

07129 N 

07134 1 

07139 

07144 

07149 

07154 

07159 

07164 

07169 

07174 

07179 

07184 

07189 

07194 H 

07199 7 

07204 1 

07209 J 

07214 1 



6979 

7009 

7004 

6975 

6944 

2234 

6939 

6975 

0500 

9781 

7209 

0902 

7034 

0003 

0205 

0004 

0000 

0901 

7064 

09 04 

7074 

0905 

7084 

0902 

7104 

7194 

5474 

9018 

0500 

8855 

0902 

7129 

7139 

7179 

8989 

7159 

0014 

7149 

0205 

0004 

0004 

7049 

0205 

0004 

7049 

8975 

2235 

0309 

1234 

7209 



07219 
07224 
07229 
07234 
07239 
07244 



6979 
7009 
7004 
69X5 

6944 
22T4 
6939 
6ZX5 
0500 
9781 
7209 
0902 
7034 
00-3 
0205 
0004 
0000 
0901 
7064 
0904 
7074 
0905 
7084 
0902 
7104 
7194 
5474 
90J8 
0500 
8855 
0902 
7129 
71L9 
7179 
8909 
71N9 
0014 
7149 
0205 
0004 
0004 
7049 
0205 
0004 
7049 
89X5 
22T5 
0309 
1234 
7209 



8425 84B5 
0002 0002 
0500 0500 
8403 8403 
0011 0011 
5474 5474 



SEND A 6 TO THE FIRST TAPE ADDRESS 



MESSAGE #23 

TR IF CHECK POINTS NOT WANTED 

TURN OFF 0902 IND 



CHECK POINT TAPE 

TURN OFF 0901 
TURN OFF 0904 
TURN OFF 0905 



TO REREAD CHECK POINT 

SW Z. SET TO NOP WHEN 2ND CH PT IS WRITTEN 

DECREASE ERROR CTR 



TURN OFF 0902 IND 



CHECK POINT UNREADABLE 



GET A 1 

TO SUPPRESS REPRINT OF PROGRAM 

TO FIRST CHECK POINT 



OVERFLOW CONDITION 
OUTPUT TAPE TO MESSAGE 



UNL 26.22.0 04 
SEL 0200 00 
RWW 75.09.0 6001 00 



07249 7 7254 7S54 
07254 2 0200 0200 
07259 S 12500 S500 



MESSAGE #7 



RD ERROR *13 - 30 ERRORS 
TAPE ADDRESS TO SEL INSTR 



C LNG 


SYMBOLIC 


I NCR 




ACTUAL S 


L 


LOC OP ADDR 




ASU 


LOC OP 


ADDR ADDR N 




26424.0 RD 75.09.0 


&001 


00 


07264 Y 


12500 S500 




26.24.5 TRS 23.01.5 




00 


07269 


6294 6294 




26.25.0 TMT 72.04.0 




09 


07274 9 


9064 9-W4 




26.26.0 ADD 71.04.0 




07 


07279 G 


8975 8ZG5 


1 


26.27.0 SEL 0902 




00 


07284 2 


0902 0902 




26.28.0 TRS 12.01.5 




00 


07289 


3879 3879 




26.29.0 TR 24.21.0 




00 


07294 1 


6799 6799 




26.30.0 LOO 26.32.0 




10 


07299 8 


7309 7L-9 




26.31.0 TR 12.31.5 




00 


073 04 1 


3969 3969 




26.32.0 NOP 23.02.0 




00 


07309 A 


6314 6314 


7 


28.00.0 










7 


28.01.0 










1 


28.04.0 SEL 0500 




00 


07314 2 


0500 0500 




28.04.5 WR 73.74.0 


6001 


00 


07319 R 


9850 9850 


1 


28.04.9 SEL 0901 




00 


07324 2 


0901 0901 




28.05.0 TRS 25.02.0 




00 


07329 


6889 6889 


1 


28.06.0 SEL 0904 




00 


07334 2 


0904 0904 




28.07.0 TRS 25.04.0 




00 


07339 


6899 6899 


1 


28.08.0 SEL 0905 




00 


07344 2 


0905 0905 




28.09.0 TRS 25.06.0 




00 


07349 


6909 6909 




28.10.0 UNL 20.32.5 


-004 


01 


07354 7 


5820 5850 




28.11.0 UNL 21.03.5 


-004 


01 


07359 7 


5985 59Y5 




28.12.0 UNL 23.15.0 


-004 


01 


07364 7 


6420 64S0 




28.13.0 TR 23.39.5 




00 


07369 1 


6594 6594 


7 


31.00.0 










7 


31.01.0 












31.02.5 ADD 71.04.0 




14 


07374 G 


8975 8IP5 




31.03.0 LOD 75.16.0 




00 


07379 8 


14999 U999 




31.03.5 TR 32.01.7 




00 


07384 1 


7459 7459 




31.04.0 CMP 73.04.0 




00 


07389 4 


9310 9310 




31.05.0 TRH 32.02.0 




00 


07394 K 


7464 7464 




31.06.0 TRE 32.01.0 




00 


07399 L 


7449 7449 


1 


31.07.0 SEL 0500 




00 


07404 2 


0500 0500 




31.08.0 WR 70.91.0 


6001 


00 


07409 R 


8884 8884 


1 


31.09.0 HLT 0015 




00 


07414 J 


0015 0015 




31.10.0 UNL 20.32.5 


-004 


05 


07419 7 


5820 5YS0 




31.11.0 UNL 21.03.5 


-004 


05 


07424 7 


5985 5ZY5 




31.12.0 UNL 23.15.0 


-004 


05 


07429 7 


6420 6US0 




31.13.0 UNL 33.06.0 


-004 


01 


07434 7 


7695 7625 




31.14.0 UNL 31.03.5 


-004 


01 


07439 7 


7380 73Y0 




31.15.0 TR 18.20,0 




00 


07444 1 


5119 5119 


7 


32.00.5 










1 


32.01.0 SEL 0915 




00 


07449 2 


0915 0915 




32.01.5 TRS 34.02.0 




00 


07454 


7759 7759 




32.01.7 UNL 31.03.5 


-004 


05 


07459 7 


7380 7TY0 




32.02.0 UNL 73.04.0 




00 


07464 7 


9310 9310 




32.05.0 TR 32.25.0 




00 


07469 1 


7569 7569 


1 


32.06.0 SET 0000 




00 


07474 B 


0000 0000 




32.07.0 LOD 75.16.0 




00 


07479 8 


14999 U999 




32.08.0 UNL 75.16.0 




00 


07484 7 


14999 U999 




32.09.0 TR 32.25.0 




00 


07489 1 


7569 7569 


1 


32.10.0 SET 0000 




00 


07494 B 


0000 0000 




32.11.0 LOD 75.16.0 




00 


07499 8 


14999 U999 




32.12.0 UNL 75.16.0 




00 


07504 7 


14999 U999 




32.13.0 TR 32.25.0 




00 


07509 1 


7569 7569 


1 


32.14.0 SET 0000 




00 


07514 B 


0000 0000 




32.15.0 LOD 75.16.0 




00 


07519 8 


14999 U999 




32.16.0 UNL 75.16.0 




00 


07524 7 


14999 U999 




32.17.0 TR 32.25.0 




00 


07529 1 


7569 7569 


1 


32.18.0 SET 0000 




00 


07534 B 


0000 0000 




32.19.0 LOD 75.16.0 




00 


07539 8 


14999 U999 




32.20.0 UNL 75.16.0 




00 


07544 7 


14999 U999 



DATA OR DESCRIPTION 



SORT51 



SET UP FOR FINAL PASS 
NEXT TO LAST PASS MESSAGE 



SW #X1 TO TR 
SW »X2 TO TR 
SW #X3 TO TR 



COMPARING RECORDS 

INCREASE LAST PASS RECORD COUNT 

LOD C CTRL WORD 

SW #Y. SET TO NOP FIRSRT TIME THROUGH 

RECORDS IN SEQUENCE 

TO TEST IF DUPLICATES ARE DESIRED 



RECORD OUT OF SEQUENCE IN LAST PASS 

XI TO NOP 

X2 TO NOP 

X3 TO NOP 

X4 TO TR 

Y TO TR 

RECORDS ARE IN SEQUENCE 

DUPLICATES ARE NOT DESIRED 
SET SW #Y TO NOP 

REPLACING SW #1 
WORD INFORMATION BACK 
INTO THE LOER PART OF 
THE RECORD 
REPLACING SW #2 



REPLACING SW *3 



REPLACING SW #4 



LNG 



SYMBOLIC 
LOC OP ADDR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



32.21.0 TR 
32.22.0 SET 
32.23.0 LOD 
32.24.0 UNL 
32.25.0 MOP 
32.26.0 SET 
32.27.0 LOO 
32.28.0 UNL 
32.29.0 MOP 
32.30.0 SET 
32.31.0 LOD 
32.32.0 UNL 
32.33.0 MOP 
32.34.0 SET 
32.35.0 LOO 
32.36.0 UNL 
32.37.0 NOP 
32.38.0 SET 
32.39.0 LOD 
32.40.0 UNL 
32.41.0 NOP 
32.42.0 SET 
32.43.0 LOD 
32.44.0 UNL 
33.00.0 
33.02.0 SET 
33.03.0 LOO 
33.04.0 ADD 
33.05.0 ADM 

33.05.5 SET 

33.05.6 NOP 
33.06.0 TR 
33.07.0 TR 
33.10.0 UNL 
33.10.5 SET 
33.11.0 TR 
33.20.0 UNL 
33.21.0 SEL 
33.22.0 WR 
33.23.0 TRS 
33.24.0 SEL 
33.25.0 TRS 
33.26.0 TR 
34.00.0 
34.01.0 
34.02.0 SEL 
34.03.0 TRS 
34.04.0 SPR 
34.05.0 SEL 
34.06.0 WR 
34.07.0 WR 
34.08.0 TR 
34.10.0 SPR 
34.11.0 SUB 
34.12.0 SPR 
34.13.0 ADD 
34.14.0 SEL 
34.15.0 WR 
34.16.0 UNL 
34.17.0 SEL 
34.18.0 BSP 
34.19.0 RWW 



32.25.0 

0000 
75.16.0 
75.16.0 
33.02.0 

0000 
73.04.0 
75.16.0 
33.02.0 

0000 
73.04.0 
75.16.0 
33.02.0 

0000 
73.04.0 
75.16.0 
33.02.0 

0000 
73.04.0 
75.16.0 
33.02.0 

0000 
73.04.0 
75.16.0 

0010 
75.16.0 
71.60.0 
73.03.0 

0000 
34.41.0 
20.33.0 
33.20.0 
33.06.0 

000 
22.12.0 
33.21.0 

0200 
75.16.0 
26.02.0 

0902 
35.14.0 
36.03.2 



0914 
34.10.0 
70.96.0 

0500 
70.95.0 
73.04.0 
32.02.0 
73.80,0 
71.04.0 
73.79.0 
71.04.0 

0400 
73.78.0 
34.17.0 

0200 

0004 
75.26.0 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

oo 

00 
00 

00 
6010 00 
00. 

00 
00 
00 
00 
00 
-004 05 
00 

oo 

03 

00 

6001 00 

00 

00 
00 
00 



07549 1 
07554 B 
07559 8 
07564 7 
07569 A 
07574 B 
07579 8 
07584 7 
07589 A 
07594 B 
07599 8 
7604 7 
07609 A 
07614 B 
07619 8 
07624 7 
07629 A 
07634 B 
07639 8 
07644 7 
07649 A 
07654 B 
07659 8 
07664 7 



00 
00 
14 
00 

&001 00 

&0O1 00 
00 
14 
14 
14 
14 
00 

-001 00 
03 
00 
00 

&001 00 



7569 
0000 

14999 

14999 
7669 
0000 
9310 

14999 
7669 
0000 
9310 

14999 
7669 
0000 
9310 

14999 
7669 
0000 
9310 

14999 
7669 
0000 
9310 

14999 



07669 
07674 
07679 
07684 
07689 
07694 
07699 
07704 
07709 
07714 
07719 
07724 
07729 
07734 
07739 
07744 
07749 
07754 



07759 
07764 
07769 
07774 
07779 
07784 
07789 
07794 
07799 
07804 
07809 
07814 
07819 
07824 
07829 
07834 
07839 



B 0010 
8 15009 
G 9022 
9287 
0000 
7904 
5829 
7724 
7695 
0000 
6234 
7729 
0200 
R 15000 
7219 
2 0902 

7934 

1 7949 



0914 
7794 
8968 
0500 
8928 
9311 
7464 
9897 
8975 
9885 
8975 
0400 
9868 
7829 
0200 
0004 
17500 



7569 

0000 
U999 
U999 
7669 
0000 
9310 
U999 
7669 
0000 
9310 
U999 
7669 
0000 
9310 
U999 
7669 
0000 
9310 
U999 
7669 
0000 
9310 
U999 

0010 
V009 
9022 
9287 
0000 
7904 
5829 
7724 
7WZ5 
0000 
6234 
77B9 
0200 

vooo 

7219 
0902 
7934 
7949 



0914 
7794 
8108 
0500 
8928 
9311 
7464 
9HR7 
8IP5 
9HQ5 
8IP5 
0400 
9868 
78B9 
0200 
0004 
X500 



DATA OR DESCRIPTION 
REPLACING SW #5 



REPLACING THE CONTROL 
FIELDS INTO THEIR 
PROPER POSITIONS IN 
RECORD 



S0RT51 



THE 



HASH TOTAL 

1ST 10 CHARACTERS OF RECORD 
STRIP ZONES 

SET ACC TO CTRL WORD LENGTH 

SW X5 — SET TO TR TO PRINT 2ND DUP RECORD 

SW #X-4 SET TO NOP ON EOF 

SET SW#X-4 TO NOP 
SET ACC TO LENGHT OF CTRL WORD 
TO TMT RECORD FROM A TO C 
PROPER OUTPUT TAPE ADDRESS 

WRITE RECORD IN AREA C 
TO OVER FLOW ROUTINE 

0902 RETURN 22 



IF CHECKING FOR DUPLICATES IS DESIRED 

IS PRINTER AVAILABLE 

YES 

RECORD » TO MESSAGE 

WRITE MESSAGE AND CONTROL WORD 



OUTPUT TAPE ADDRESS 



LNG 



SYMBOLIC 
LOC OP ADOR 



INCR 



ASU LOC 



ACTUAL s 
OP ADDR ADDR N 



34. 


20. 


34. 


21. 


34. 


22. 


34. 


23. 


34. 


24. 


34. 


25. 


34. 


26. 


34. 


27. 


34 


28. 


34. 


29. 


34 


3C. 


34 


31. 


34 


41. 


34 


42. 


34 


43. 


34 


44. 


34 


45. 


34 


46. 


35 


00, 


35 


01. 


35 


13. 


35 


14. 


35 


16. 


35 


17. 


36 


OOt 


36 


01. 


36 


03. 


36 


03. 


36 


04. 


36 


05. 


36 


06. 


36 


07. 


36 


07. 


36 


OS. 


36 


09. 


36 


10. 


36 


11. 


36 


12. 


36 


12. 


36 


13. 


36 


13. 


36 


13. 


36 


14. 


36 


14. 


36 


15. 


36 


16. 


36 


16. 


36 


.17. 


36 


.23. 


36 


.24. 


36 


.24. 


36 


• 24. 


36 


.24. 


36 


.24. 


36 


• 24. 


36 


.24. 


36 


• 25. 


36 


• 26. 


36 


.27. 


36 


• 28. 


36 


• 28. 


36 


• 28. 



RD 

TMT 

SEL 

TRS 

SEL 



WR 



SEL 
TRS 
SEL 
TRS 



UNL 



TR 

UNL 

SEL 

WR 

SEL 

TRS 

TR 






LOD 
TR 
MOP 



75.26.0 

72.04.0 

0901 
25.02.0 

0400 
75.26.0 

0902 
34.28.0 

0901 
34.30.0 
33.05.6 
32.02.0 
33.05.6 

0400 
75.16.0 

0902 
33.06.0 
33.06.0 



35.17.0 
12.31.5 
36.03.2 



CMP 

TRE 

SEL 

WR 

TR 

SET 

NOP 

LOD 

CMP 

TRE 

SEL 

WR 

HLT 

UNL 

UNL 

TR 

UNL 

TRA 

SEL 

WTM 

TRA 



RWD 



UNL 

SPR 

1 NOP 

2 LOD 

3 UNL 

4 SEL 

5 IOF 

6 RWD 
SEL 

WR 

HLT 

TR 

SEL 

TRS 



70.18.0 
36.07.0 

0500 
73.53.0 
36. 12.5 

0009 
36.14.0 
73.03.7 
73.03.0 
36.14.0 

0500 
73.57.0 

0016 
33.06.0 
31.03.5 
25.11.0 
36.15.0 
36.15.0 

0201 

0001 
36.29.0 

0002 
70.84.0 
70.83.0 
36.25.0 
19.10.0 
36.24.4 

0205 

0000 

0002 

0500 
70.82.0 

9999 
36.25.0 

0902 
36.15.0 



&001 00 
09 

00 
00 
00 
00 

oo 

00 
00 
00 

-004 01 
00 

-004 05 
00 
00 
00 
00 
00 



10 
00 

00 



14 

00 
00 

&001 00 
00 
00 
00 
00 
00 
00 
00 

6001 00 
00 

-004 01 

-004 01 
00 
03 
00 
00 
00 
00 
00 
03 
07 
00 
03 
03 
00 

oo 

00 
00 
00 
00 
00 
00 
00 



07844 

07849 

07854 

07859 

07864 

07869 

07874 

07879 

07884 

07889 

07894 

07899 

07904 

07909 

07914 R 

07919 2 

07924 

07929 1 



07949 4 
07954 L 
07959 2 
07964 R 
07969 1 
07974 B 
07979 A 
07984 8 
07989 4 
07994 L 
07999 2 



08009 

08014 

08019 

03024 

08029 

08034 

08039 

08044 

08049 I 

08054 3 

08059 7 

08064 5 

08069 A 

08074 8 

08079 

08084 

08089 

08094 

08099 

08104 

08109 

03114 

08119 

08124 



17500 
90 64 
0901 
6889 
04 00 

17499 
0902 
7884 
0901 
7894 
7690 
7464 
7690 
0400 

14999 
0902 
7699 
7699 



07934 8 
07939 1 
7944 A 



08004 R 



X500 
9-W4 
0901 
6889 
0400 
X499 
0902 
7884 
0901 
7894 
76Z0 
7464 
7W20 
0400 
U999 
0902 
7699 
7699 



7944 7RM4 
3969 3969 
7949 7949 



8298 
7974 
0500 
9721 
8009 
0009 
8029 
9309 
9287 
8029 
0500 
9752 
0016 
7695 
7380 
7019 
8039 
8039 
0201 
0001 
8149 
0002 
8852 
8837 
8099 
5434 
80 84 
0205 
0000 
0002 
0500 
8804 
9999 
8099 
0902 
8039 



8BR8 
7974 
0500 
9721 
8009 
0009 
8029 
9309 
9287 
8029 
0500 
9752 
0016 
76Z5 
73Y0 
7019 
80C9 
8039 
0201 
0001 
8149 
0002 
88E2 
8YC7 
8099 
54C4 
80H4 
0205 
0000 
0002 
0500 
8804 
9999 
8099 
0902 
8039 



DATA OR DESCRIPTION 



READ LAST RECORD INTO AREA D 
G.M. AND R.M.S 



S0RT51 



SET SW X5 TO TR 
SET SW X5 TO NOP 



902 ERROR RETURN SETUP 
*22-WR 



RETURN ADDRESS 

END OF FILE PROCEDURE 

CMP LAST PASS RECORD COUNT 

ERROR 
MESS #21 

GET HASH TOTAL #1 

HASH TOTAL NOT VALID 

GET FIRST PASS HASH TOTAL 

CHECK IF EQUAL TO LAST PASS 

OK 

ERROR 

MESS *22 

LAST PASS RECORD COUNT OR HASH TOTAL CHECK 

SET SW X4 TO TR 

SET SW Y TO TR 

OUTPUT TAPE 
TURN OFF ANY 
X 
X 



TAPE WITH SORTED FILE 
RECORD COUNT TO MESSAGE 
CHK PT REWIND SW 



CHECK PT TAPE 



MESS *17 
FINAL STOP 



C LNG SYMBOLIC 


L LOC OP 


AODR 


36.28,3 UNL 


36.28.4 


1 36.28.4 SEL 


0200 


1 36.28.5 IOF 


0000 


36.28.6 TR 


36.17.0 


1 36.29.0 8SP 


0004 


36.29.1 TRS 


36.28.1 


36.30.0 TR 


36. 16.0 


7 70.00.0 




7 70.01.0 




7 70.02.0 




2 001 70.04.0 




2 028 70.05.0 




2 014 70.06.0 




2 001 70.07.0 




7 70,08.0 




2 001 70,09.0 




2 031 70.10.0 




2 001 70.11.0 




7 70.12.0 




2 001 70.13.0 




2 031 70.14.0 




2 001 70.15.0 




7 70.16.0 




2 001 70.17.0 




2 028 70.18.0 




2 026 70.19.0 




2 009 70.19.5 




2 001 70.20.0 




7 70.20.5 




2 001 70.21.0 




2 030 70.22.0 




2 007 70.23.0 




2 001 70.23,5 




7 70.24.0 




2 001 70.25.0 




2 026 70.26.0 




2 001 70,27.0 




7 70.28.0 




2 001 70.29.0 




2 023 70.30.0 




2 020 70.30.1 




2 001 70.31.0 




7 70.33.0 




2 001 70.34.0 




2 032 70.35.0 




2 Oil 70.36.0 




2 001 70.37.0 




7 70.38.0 




2 001 70.39.0 




2 025 70.40.0 




2 001 70.41.0 




7 70.42.0 




2 001 70,43.0 




2 015 70.44.0 




2 001 70,45,0 




7 70,50,0 




2 001 70,51,0 




2 030 70.52.0 




2 001 70.53.0 




7 70.54,0 




2 001 70.55.0 




2 021 70.56.0 





INCR 



ASU LOC 



ACTUAL S 
OP AODR ADDR N 



DATA OR DESCRIPTION 



SORT51 



03 


08129 


7 


8134 


81C4 




00 


08134 


2 


02 00 


0200 




00 


08139 


3 


0000 


0000 




00 


08144 


1 


8054 


8054 




00 


08149 


3 


0004 


0004 




00 


08154 





8119 


8119 




00 


08159 

08160 
08188 
08202 
08203 


1 


8044 


8044 


MESSAGES 
#1 

READ CHECK - RECORD #XXXXXX 

FROM TAPE 0204 

□ 

#2 



08204 
08235 
08236 

08237 
08268 
08269 

08270 
08298 
08324 
08333 
08334 

08335 
08365 
08372 
08373 

08374 

08400 
08401 

08402 
08425 
08445 
08446 

08447 
08479 
08490 

08491 

08492 
08517 
08518 

08519 
08534 
08535 

08536 
08566 
08567 

08568 
08589 



0902 CHECK WRITING ON TAPE 020X 

n 

#3 

MASTER FILE CONTAINS ONE RECORD 

D 

#4 

END OF PASS #XX WITH XXXXXX 

RECORDS WRITTEN IN XXXXXX 

SEQUENCES 

□ 

#5 

1 

PRINT OUT OF SORT 51 — READY 

TO SORT 

n 

#6 

REMOVE MASTER FILE ON 0200 

D 

#7 

PUT LONGER TAPE ON 020X 
AND PRESS START KEY 

D 

#8 

1 

PRINT OUT OF ASSIGNMENT ROUTINE 

FOR SORT 51 

n 

#9 

0902 CHECK-RELOAD PROGRAM 

D 
#10 

NO CONTROL CARD 

a 

011 

0902 CHECK-RELOAD CONTROL CARD 

a 

#12 

ERROR IN CONTROL CARD 



c 


LNG 




SYMBOLIC 


L 




LOC 


OP ADDR 


2 


001 


70, 


57. 





7 




70. 


58. 





2 


001 


70. 


59. 





2 


016 


70 


60 





2 


001 


70. 


61. 





7 




70 


62, 





2 


001 


70. 


63. 





2 


031 


70. 


64, 





2 


001 


70. 


65. 





2 


032 


70. 


66. 





2 


001 


70. 


67. 





7 




70, 


68, 





2 


001 


70. 


69. 





2 


025 


70. 


70. 





2 


001 


70, 


71. 





7 




70. 


72, 





2 


001 


70. 


73, 





2 


028 


"70, 


74, 





2 


040 


70, 


74. 


5 


2 


001 


70, 


75, 





7 




70. 


76 





2 


001 


70, 


77, 





2 


030 


70, 


78 





2 


001 


70, 


80 





7 




70, 


81, 





2 


001 


70 


82 





2 


033 


70 


83 





2 


015 


70, 


84. 





2 


001 


70 


85, 





7 




70 


86 





2 


001 


70 


87 





2 


027 


70, 


88, 





2 


001 


70 


89 





7 




70, 


90 





2 


001 


70, 


91 





2 


042 


70 


92 





2 


001 


70 


93 





7 




70 


94, 





2 


001 


70, 


95 





2 


041 


70, 


96 





2 


001 


70. 


97 





7 




71. 


00 





7 




71. 


01 





2 


004 


71 


02 





2 


001 


71, 


03, 





2 


001 


71 


04 





2 


001 


71 


05 





2 


003 


71 


06 





2 


002 


71 


07 





2 


002 


71 


08 





2 


002 


71 


08 


2 


2 


002 


71 


08 


4 


2 


002 


71 


09 





2 


002 


71 


.10 





2 


002 


71 


■ 11 





2 


002 


71 


11 


2 


2 


002 


71 


.11 


.4 


2 


004 


71 


.12 


.0 


2 


004 


71 


.13 


.0 


2 


001 


71 


.14 


.0 


2 


003 


71 


.15 


.0 


2 


001 


71 


.17 


.0 



INCR 



ASU LOC 

08590 

08591 
08607 
08608 

C3609 
08640 
03641 
08673 
08674 

08675 
08700 
08701 

08702 
08730 
08770 
08771 

08772 

08802 
08803 

08804 
08837 
08852 
08853 

08854 
08881 
08882 

08883 

08925 
08926 

08927 
08968 
08969 



08973 
08974 
08975 
08976 
08979 
08981 
08983 
08985 
08987 
08989 
08991 
08993 
08995 
08997 
09001 
09005 
0900i 
09009 
09010 



ACTUAL S 
OP ADDR ADDR N 



DATA OR DESCRIPTION 

D 

#13 

END OF PRINT OUT 

□ 

PRINTER ERRORS 

0902 CHECK FOR FIRST LINE ABOVE 

0903 CHECK FOR SECOND LINE ABOVE 

#14 

NO RECORDS ON MASTER TAPE 

a 

#15 

MASTER FILE IS IN SEQUENCE. 

PRESS START FOR OPTIONAL DUPLICATE CHECK 

a 
#16 

0902 CHECK WRITING CHECK POINT 

a 

#17 

FINAL PASS COMPLETED WITH XXXXXX 
RECORDS ON 020X 
a 
# 18 

0902 ON READING CHECK POINT 

□ 

#19 

RECORD OUT OF SEQUENCE LAST PASS — RESTART 
a 

#20 

CONTROL WORD OF DUPLICATE RECORD #XXXXXX 

D 

SIGNED CONSTANTS 



FOR CHANGING INPUT TAPES 
FOR CHAN6ING OUTPUT TAPES 



FOR INITIAL INPUT TAPE ADDRESS 
FOR INITIAL OUTPUT TAPE ADDRESS 



SORT 51 



& 





& 


1 


- 





& 


000 


& 


02 


& 


04 


& 


14 


& 


16 


& 


10 


& 


00 


& 


01 


& 


06 


& 


07 


& 


0020 


s 


0007 


& 


8 


& 


001 


& 


5 



C LNG 

L 



SYMBOLIC 
LOC OP ADDR 



INCR 



ASU LOC 



ACTUAL S 
OP ADDR ADDR N 



001 



001 
002 
001 
001 
001 
001 
001 
002 
001 
005 
002 
004 
004 
005 
006 
005 

005 



001 
001 
001 
001 
001 
001 
001 
001 



003 
004 
004 
006 



001 
001 
001 
001 



001 
001 
001 
001 
001 



71.18 
71.50 
71.51 
71.52 
71.53 
71.54 
71.55 
71.56 
71.57 
71.58 
71.59 
71.60 
71.61 
71.62 
71.63 
71.64 
71.65 
71.65 
71.66 
71.67 
71.68 
72.00 
72.01 
72.02 
72.03 
72.04 
72.05 
72.05 
72.05 
72.05 
72.05 
72.07 
72.08 
72.09 
72.10 
72.11 
72.12 
72.13 
72.14 
72.15 
72.50 
72.51 
72.52 
72.53 
72.54 
72.55 
72.56 
72.57 
72.58 
72.59 
72.60 
72.61 
72.70 
72.71 
72.72 
72.73 
72.74 
72.75 
72.76 
72.77 
72.78 
72.79 



70.34.0 



75.09.0 
73.06.0 6050 
73.11.0 
73.11.0 



035 07 
035 04 



72.96.0 6003 
36.30.0 -004 05 
5.33.0 -004 05 
72.93.0 6004 

.03.0 -004 05 
72.93.0 6092 



09011 



09012 
09014 
09015 
09016 
09017 
09018 
09019 
09021 
09022 
09027 
09029 
09033 
09037 
09042 
09048 
09053 
09057 
09062 



09063 
09064 
09065 
09066 
09067 
09068 
09069 
09070 
09074 
09078 
09082 
09086 
09089 
09093 
09097 
09103 



09104 
09105 
09106 
09107 
09111 
09115 
09119 
09123 
09127 
09131 



09132 
09133 
09134 
09135 
09136 



6 
& 
& 
& 
6 
& 
& 

& 
6 
6 
6 
& 
6 
6 
8447 8447 & 
& 



12499 S499 
9461 9461 
9562 9VF2 
9562 9V62 



9255 9255 
8155 8/V5 
2235 2ST5 
9156 9156 
0240 OSUO 
9244 9244 



DATA OR DESCRIPTION 

4 

SIGNED CONSTANTS FOR PRINT OUT 

12 

8 

4 

3 

2 

1 

00 

o 

OOO50 

10 

0011 

0005 

00000 

000000 

00200 INITIAL INDEX-ASSIGNMENT 

03000 

UNSIGNED CONSTANTS 



* 

A 

ADD OF B SECTION 

ADD OF UNITS POSITION OF P5 



100 

60 ZONE INCREMENT 4 TO 11 

0060 ZONE INCREMENT 4 TO 7 

000001 

UNSIGNED CONSTANTS FOR PRINT OUT 

/ 

Z 

R 

I 

LAST PRINT ADD 

LAST INSTRUCTION OF SORT 51 

ENDING ADD OF ASSIGNMENT 

FIRST PRINT ADD 

ADO OF FIRST ASSIGNMENT INSTRUCTION 



PRINT OUT WORK SPACES 

INSTRUCTION WORK SPACE 

OPERATION DISIT 

4TH ORDER DIGIT 

3RD ORDER DIGIT 

2ND ORDER DIGIT 

1ST ORDER DIGIT 

ASSEMBLY WORK SPACE 



S0RT51 



C LNG 


SYMBOLIC 




L 


LOC OP 


ADDR 


5 001 


72t80.0 




5 001 


72.81.0 




5 001 


72.82.0 




5 002 


72.83.0 




5 001 


72.84.0 




5 003 


72.85.0 




5 001 


72.86.0 




7 


72.90.0 




7 


72.91.0 




2 001 


72.92.0 




2 005 


72.93.0 




2 034 


72.94,0 




2 033 


72.95.0 




2 033 


72.96.0 




2 Oil 


72.97.0 




2 001 


72.97.5 




2 001 


72.98.0 




7 


73.00.0 




7 


73.01.0 




2 Oil 


73.02.0 




2 Oil 


73.03.0 




2 Oil 


73.03.5 




2 Oil 


73.03.7 




5 001 


73.04.0 




5 100 


73.05.0 




5 001 


73.06.0 




5 080 


73.07.0 




2 001 


73.08.0 




5 035 


73.09.0 




5 035 


73.10.0 




5 035 


73.11.0 




5 008 


73.12.0 




5 004 


73.13.0 




5 008 


73.14.0 




5 001 


73.15.0 




5 101 


73.16.0 




7 


73.50,0 




7 


73.51.0 




7 


73.52.0 




2 001 


73.53.0 




2 029 


73.54.0 




2 001 


73.55.0 




7 


73.56.0 




2 001 


73.57,0 




2 027 


73.58.0 




2 001 


73.59.0 




7 


73,60,0 




2 001 


73.61.0 




2 022 


73.62.0 




2 026 


73,63.0 




2 001 


73.64.0 




7 


73.69.0 




2 001 


73.70,0 




2 017 


73.71.0 




2 001 


73.72.0 




7 


73.73.0 




2 001 


73,74.0 




2 017 


73.75,0 




2 001 


73.76,0 




7 


73,77,0 




2 002 


73.78.0 




2 016 


73.79.0 





INCR ACTUAL S 

ASU LOC OP ADDR ADDR N 

09137 
09138 
09139 
09141 
09142 
09145 
09146 



09147 
09152 
09186 
09219 
09252 
09263 
09264 
09265 



09276 
09287 
09298 
09309 
09310 
09410 
09411 
09491 
09492 
09527 
09562 
09597 
09605 
09609 
09617 
09618 
09719 



09720 
09749 
09750 

09751 
09778 
09779 

09780 
09802 
09828 
09829 

09830 
09847 
09848 

09849 
09866 
09867 

09869 
09885 



DATA OR DESCRIPTION 



OPERATION DIGIT 

UPPER MEMORY DESIGNATION 

4TH ORDER DIGIT 

2ND AND 3RD ORDER DIGIT 

1ST ORDER DIGIT 

ASU DESIGNATION 



PRINT FIELD 

FOR CARRIAGE CONTROL 

FOR VERTICLE INDEX 
04/54 09/59 14/64 
19/69 24/74 29/79 
34/84 39/89 44/94 
49/99 
1 BLANK 



SHORT WORK SPACES 

00000000000 HASH TOTAL #1 

0OO00O00O0O HASH TOTAL #2 

000000000000 HASH TOTL #3 

00000000000 HASH TOTAL FOR FIRST PASS 

FOR SETTING UP CONTROL WORD 

X 

FOR CONTROL CARD 

X 

D 

SIFTED CONTROL CARD FIELDS 

TABLE #1 

TABLE #2 

FOR TABLE BUILD UP AND TABLE #1 WS 

FOR SUM OF TABLE #1 LENGTHS 

TABLE #2 WORK SPACE 

FOR ERROR ROUTINE 



MORE MESSAGES 
#21 

RECORD COUNT IN ERROR-RESTART 

#22 

HASH TOTAL IN ERROR-RESTART 

a 

#23 

D 

RESTART ON 090X CHECK 
PROCESSING RECORD #XXXXXX 

a 
#25 

RECORD ELIMINATED 

D 

#26 

NEXT TO LAST PASS 

27 
RECORDS #XXXXXX 



SORT51 



c 


LNG 


SYMBOLIC 


L 




LOC OP ADDR 


2 


012 


73.80*0 


2 


029 


73.81.0 


2 


001 


73.82.0 


7 




73.83.0 


2 


021 


73.84.0 


2 


001 


73.85.0 


7 




75.00.0 


7 




75.01.0 


6 




75.01.5 099 


5 


001 


75.02.0 


5 


900 


75.03.0 


5 


900 


75.04.0 


5 


699 


75.05.0 


5 


001 


75.09.0 


5 


900 


75.10.0 


5 


900 


75.11.0 


5 


699 


76.12.0 


5 


001 


75.16.0 


5 


900 


75.17.0 


5 


900 


75.18.0 


5 


699 


75.19.0 


5 


001 


75.26.0 


5 


9 00 


75.27.0 


5 


900 


75.28.0 


5 


699 


75.29.0 



INCR 



ASU LOC 

09897 
09926 
09927 

09948 
09949 



09999 
10899 
11799 
12498 
12499 
13399 
14299 
14998 
14999 
15899 
16799 
17498 
17499 
18399 
19299 
19998 



ACTUAL S 
OP ADDR ADDR N 



DATA OR DESCRIPTION 



AND #XXXXXX 

WITH DUPLICATE CONTROL FIELDS 

D 

#28 

RESTART PREVIOUS PASS 



WORK AREA FOR RECORDS 

SECTION A - FOR STORAGE OF 
RECORD IN BETWEEN 
COMPARISONS 

SECTION B - READ IN AREA 



SECTION C - WRITE AREA 



SECTION D - FOR STORAGE OF 
SINGLE STEP- 
DOWN RECORD 



SORT51 



ASSIGNMENT SECTION 

5^ 




03.15 



03.17 



03.23 



03.24 



03.26 



'03.27 



03.31 



Housekeeping 



Adjust sod- 
instructions 
for one ctrl. 
field in position 



Lod length 
i+h ctrl field 




04.02 



Se+ sw. at 
end of ctrl. 
Word set up 

in first pass. 



3.51 



Set sw. at 

end of ctrl word N 

replacement 

in last pass. 



03.52 



Adjust: 

Set, LOD, and 

CMP instructions 

in sort 



03.54 




02.04.5 



3.51.7 



Prepare table 

I of Ctrl 
fields on right 
side of record 



02.48 



1 



Prepare r 
Table 2 of 

non ctrl info. 

on left side 
of record 



02.39.5 




Adjust: 
Set, L0D,&UNL 
inst's to move 
non ctrl. info to 
right in first 
pass and return 
itin last pass. 




02.73.0 



05.02 



05.07 



05.17 



05.20 



Change addr 

of check point 

to 0204 




05.22 



05.32 



Print out 
of sorting 
instructions 



/ If desired \ 
I transfer I 
^ N manually^ 

"T" 



Adjust print 

out for 
assignment 



05.52 



Housekeeping 

for first 

pass 



First pass I 



08.02 



FIRST PASS 



Rwd, IOF 

tapes 0200, 

0201, 0202, 

0203 




10.03 



10.15 



No-Op 



Rwd, IOF 
tape 0204 



10.16 




Rd f irst recdS. 

from master 1 

to area G>/ 

0.19 

Yes 




10.22 



'Stop 



4.02 



TMT G/M 
& 5 R/M'S to 
end of rec'd 



Pick up 
return 
address 




Move first 

record from 

BtoA 



10.27.3 




TMT S/M & 
5 R/M'S to 
end of rec'd 




to No-op/^VHy 

v '10.36 




Pick up 

return 

address 



Add to middle 
Pass hash total 
from area C 



10.42.1 




Restore 
switches 
to beginning 
status 



TMT G/M 8. 

R/M'S to 
input record 



10.45.1 




— ® 



15.15 



15.09 



FIRST PASS STEP- DOWN 



END OF FIRST PASS 




5.28 




Incr middle 
pass hash 



Not zero 
or No-Op 



11.27.1 




TMT A 
to C 



Get return 
addresses 



15.34 



Change out- 
put tape 



15.36 




1.30 



BSD 



TMT: 
B to A 
D to C 



11.45 



Set ASU ,-^ 

sign to — *(l4-j 

plus v - y 



-© 



15.44 



Tmt D 
to C 



Get 
return 
address 



-® 



15.52 



WTM, IOF 

Rwd output 

tapes 

I 



13.17.5 




CHECK FOR NEXT TO LAST PASS 



Master file 



Zero and TRZ 




Set up for 



n s <*^" ce J^op)_JlZ X2 + toTr W paSS 



SwX3toTr 



14.24 



28.10 



for last pass 



( Type end oi\ ( 
Ipass message/^ 

23.39.5 




1.39 



SECOND AND SUBSEQUENT PASSES 



Interchange 

nput & output 

addresses 

Without 

Stand Bys 







Interchange 

Input tOirtput 

With 

Stand Bys 



9.01.5 



Set sw 
Z+oNo-ty 

"I 19.01.8 




BSP check 
point tape 



-K§> 



Housekeeping 
for 2nd and 
subsequent 
passes 



19.22 



'Set: 
Sw 20 to No-Op\ 
Sw 21 to No-Op N 
Sw 2IAtoNo-Op 
Sw 22 to Tr 
5w 24toNo-0R/ 2 

\Sw 25 to Tr / 




RD record \ 
(20)— *i from Isttape) 

toB y 

I 20.25 



TMT G/M 
& R/MS 



I 2 0.26 




Pick up 

return 

addresses 



-® 



24.09 



Hash total 



J 2 0.29.1 



Loot B ctrl 
word 



22.01.5 



B T t M o T A — ® 



IOF,RWD,0200 

0201, 0202, 

0203 



20.04 



R0 1st record 

from alt tape 

to area B 





'Sw^toTr 
Sw.2ltoTr 



20.54 



Change 

to first 

taps address 



20.16 
Yes 



20.52 



20.18.5 



I0F, RWD 

selected 

tape 



20.50 



TMT G/M 
and R/MS 



Ra ise record 
count 



20.19 



20.20 




26.02 



20.22.1 



20.22.5 



MIDDLE PASS STEP-DOWN, END OF PASS, AND RESTART ROUTINES 



@ K^O 



Get return 
address 



24.34 



24.36 



Get return 
address 



24.43 




25.39 
First pass 



25.11. 1 



LAST PASS ROUTINE 
Stop\ 



WRITE ERROR ROUTINE 




Move C 

Ctrl word 

to work area 



Replace non 
Ctrl infor 

in left end 
of record 



32 05 



Replace 

ctrl infor 

in proper 

positions 



Bsp output 
tape 



24.10 




36.14 



Reset 

first 

counter 



12.48.5 



36.27 






' f\/ 


t m. r 


/I* * 


















1 »m k 




















Jm^M 




















































^x£ 2x^» 












L XV JXL ' 
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» t 






SJH r"'<jW 
























lift *• 




, ** /^li ft 




Vr " 
























yX A 






/ P *| \/r n 


























ft £ y> 


























X 


»^% 








' TX 




r H Pxr > 




























Vr ' "' 






ft 111 fA' ^* * 












8 
















f J^ 






*w 










; f» "^P»i 


\ yr 


TV/T 








** 








vtjcf jxhjx 




N/fT " 












*r * 




















ir 


1 tttL/' .'m t, 


XT 1 








^^% 














x\ifc *^^C 


* fa 






1 fsft ftt tfS 






























■v/r 


\St 






/ X 








k gj jJ*#y 












jxlx 


















yVt 




N?^ 














X 






• ". yHt ' "*f ^ 


















jX 










































rj %Sf 1j^ 
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1 fa i 
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jy k V^^*|^^P 
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txMi li : 












ix r ^vir Tx' 


i ■fpft tir\ 
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